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Serie Oro 

Perspecfivas es un programa de utilidad pensada 
para representar cua/cluier oieto en tres dimensiones 
desde distintas puntos de vista. Estd escrita en Basic, y 
funciona pero que muy bien. 
 artulas 
de disco 
Ante la insistencia de nuestros lectores, publicamos 
una vez rods/as cardtufas para disco que afrecimos 
coma regalo en el primer aniversario de AMSTRAD 
5EMANAL. En posteriores ndmeros seguiremos 
proporcionando a/as lectores nuevas y mSs cardtulas. 

Para... PCW 
Los programas de contab/lidad constituyen un ddsico 
dentro de la gestiOn. El clue has ocupa esta semana, el 
pI,4CON, ya rue ana/izado en su dia par/a rewsta, 
pero su excepciona/ ca/idad y potenda, /unto con/as 
me/oras clue incorpara la nueva version, merecen un 
nuevo y exhaustivo anS/isis. 

.# 

0 C6digo 
M6quina 
Nuevas y mds interesantes aplicadones de los 
ndmeros aleatorios en fengua/e mdquina, ademds de 
un /uego, el conocido ¢¢$imm, que demuestra una 
,utilidad prdctica de los mismos. 

• " " Informe 
" '*/ '; ,i  Expl/camos la situation 
;/ ; actual de AMSTRAD en 
./¢ . los Esladas Unidos. Alan 
Sugar I/eva camino de 
-  establecer, tambi@n altf, una 
" t/ " fuerte posicidn en el mercado 
. , / ,l rods compefitivo de/mundo. 

El Logo tiene mucho que ver con la Intetigencia 
Artificial, si uno se Io propane. Nosotros hemos 
comentado la primera parte de los ¢¢retoneeecleres 
de modeless uno de los arcanos ross importante 
del conocimlento per ordenador. 
 Mr. Joystick 
Esta vez venimos, par chicuelinas, con un iuego de 
fuerle sabor nacionaf. Para unos, par suerte, para 
otros, par desgracia. Vosotros juzgar@is, con esta 
version incruenta de una corrida de taros. 

ItC2OHOB AMSTRAD 3 



COMPUTER ENGLISH SYSTEM 

EL METODO INTEGRAL 
FAC  Y D 0 
, \ 

APRENDER 

INGLES 

I]OHTROL  ,DO POR PROFESOR 

El Curso se cornpone de cinco discos FULL-MEMORY, que incluyen un Test de Nivel para evatuar los conocimientos 
del alumno, sesenta unidades completas (con tres tipos distintos de ejercicios) de dificultad progresiva, 
cliez unidades especiales que ahondan en los aspectos m&s esenciales del idioma (con un juego cada una), 
un programa de Redacci6n controlada y libre, y un disco para pr&cticas de conversaci6n que permite dialogar 
con el ordenador sobre diversos temas en lengua ingles. 
Todos los discos poseen un PLANNING para que el alumno organice su propio ritmo de trabajo 
y puede controlar sus progresos. 
En resumen, 1 MEGABYTE de contenidos y programas configuran COMPUTER ENGLISH SYSTEM, enfocados 
para ayudarnos a aprender o reforzar nuestro INGLES de forma estimulante y sugestiva. 

CENTRAL: ZARAGOZA: CAMBRIDGE SCHOOL Zurita, 21, 1. 0- izq. - Tel. 23 91 92 CENTROS DIST;18UlDORES: BARCELONA: BARNA 
HOUSE. Rambla Catalunya, 112, 1. 0 Tel. 93.2187846 • PAMPLONA THE ENGLISH FILM CENTRE. Duque de Ahumada, 3, 2 o Tel. 22 41 84 
CENTROS COLARORt, BORE$: BARCELONA: NOVALINGUA. Avda. Diagonal, 600 • SAXON SCHOOL Gran V de las Cortes Catalanas, 437 

COMPUTER ENGLISH SYSTEM 
ZURITA 21.1o =zq.*ZARAGOZA 

BOLETIN DE PEDIDO 
NOMBRE EDAD 
DIRECCION TEL. C. POSTAL 
POBLACION PROV. PROFESION 
[] DISCO 1 - 4.900 Pts./.V.A. Incluido [] DISCO 2 - 4.900 Pts. I.VA lncluido [] DISCO 3 - 4.900 Pts. LEA. Incluzdo 
[] DISCO 4- 4.900 Pts. I.VA. Incluido [] DISCO 5- 4.900 Pts. L VA. Incluido [] CURSO COMPLETO- 21.600 Pts. L VA Incluido 

FORMA DE PAGO: [] TALON BANCARIO A CES. COMPUTER ENGLISH SYSTEM o 
[] GIRO POSTAL A CES. COMPUTER ENGLISH SYSTEM  [] CONTRA REEMBOLSO MAS GASTOS. 
DESEO RECIBIR EN MI DOMICILIO LOS PROGRAMAS SEALADOS 
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INVESTRONICA 

UN cpc 6128, 
REG, LO PARA 
UNO DE 
NUESTROS 
LECTORES 

Ya ha aparecido ganador del 
concurso celebrado entre AMSTRAD 
SEMANALe IBEROFON. Como ya re- 
cordar6is, junto al AMSTRAD ESPE- 
CIALn0mero 3, se regalaba una cin- 
ta de cassette. Una de estas cintas es- 
taba premiada con un ordenador 
CPC 6128, regalo de Iberf6n, com- 
pavia dedicada a la producci6n de 
cintas de cassette para ordenador. 
El afortunado ganador es Jos 
Manuel Artigas Martinez, quien nos 
ha remitido la cinta ganadora. El or- 
denador, un CPC 6128, yale ha si- 
do. entregado. Nuestra m6s sincera 
enhorabuena. 

SE INTRODUCE 1 
EN EL MERCADO , * FTW'A : .- : 4RA • 
DE COMPATIBLES _- . - ,. 
- 
, ,,.,  ,.,... ,  
', 
 " " '"*" "" I' ' " 
 , ' - •  ' l " .1 
t ' '" 
' # e  ' 
 =. ...  - . "  
 . :.,.:#;;:, .. ..,, :. ,. 
 &' -., *,, • • ... ?', 
    '*f*C "   " "'3"$ $t, {. 
 '  # . ' :'l& 
 , . , iii,%- 
 Iw., 

Y DE SONIDO 

INVI:TRONICA, ..A., em- 
presa Iider en alta tecnologia aplica- 
da a la industria textil, la inform6ti- 
ca, etc., y el mayor distribuidor de 
ordenadores personales y dom6sti- 
cos del mercado espaol, se ha in- 
troducido en el 6rea de los compati- 
bles con la gama INVES PC yen el 
mundo del sonido con la linea IN- 
VES. 
La gama de compatibles, consta 
de tres configuraciones de distintas 
capacidades y prestaciones: INVES 
PC 256X; INVES PC 640A e INVES 
PC 640X, para adaptarse segOn las 
necesidades empresariales o perso- 
nales, tanto de trabajo coreD de pre- 
supuesto. 
La linea de sonido INVES, se ini- 
cia con la cadena 100 HF con gira- 
discos incorporado; se amplia con el 
segundo CD 300 HF con sintonizador 
digital y compact disc y, por 61timo, 
el Compact DISC CD 200. 
INVESTRONICA, S.A., con 
m6s de 15 aos de experiencia en fa- 
bricaci6n y distribuci6n, garantiza las 
nuevas gamas de ordenadores com- 
patibles INVES PC y la linea de soni- 
do INVES. 

astertonic, 

a tra- 
v6s de Drosoft, presenta en Espaa 
cuatro iuegos nuevos en la misma li- 
nea de bajo precio que otros ante- 
riores: 750 pesetas. Sin embargo, es- 
tos cuatro titulos presentan una dife- 
rencia esencial, a saber, la calidad 
ha aumentado considerablemente. 
Una muestra m6s de que Io bueno 
no est6 reido con Io barato. 

RAZONE: en un planeta colonizado, la 
planta nuclear de energia se pone borde. 
Tu misi6n, salvar a t0d0 el mund0 a tiernp0.. 
KANE: una aventura en el Oeste Arcede 
puro. 
KNIGHT TIME: te encuentras en una na- 
ve espacial del sigl0 XXV, con much0s prone- 
mas. 
SPEED KING: vivir la apasionanfe expe- 
riencia de conducir una moto de velocidad en 
un circuito. 

4Ic?oMoBBY AM$1"RAO S 



• ERSPECTIVAS 

ePerspectivas es un progroma concebido pora 
facilitar Io labor de representoci6n de cuolquier 
tipo de funciones matemticas de no ms de tres 
variables (tridimensionales). Con 1, es fcil captor 
la forma tridimensional de Io funci6n y, sin 
introducir un valor STEP de bucle muy grancle, 
proporciona todos los puntos de carte con los ejes 
e.n el ma..rgen de representation definido par ti 
mesmo. Dspones de tres perspectivas: Caballero, 
Monomtrico y Dimtrica, que con la eleccin, 
dentro de coda una de elias, de los dngulos de 
perspectivo, forman un gran abanico de 
posibilidodes de representacin. 

nicialmente, el pro- 
grama presenta la opci6n para ins- 
trucciones; acto seguido, pide la in- 
troducci6n de las ecuaciones que de- 
terminan las variables a representar 
(como tres variables dependiendo de 
una cuarta). 
Las lineas se autoeditan al pulsar 
Enter, y, ya que al pulsar ESC se de- 
tiene el programa, 6ste ha definido 
antes la tecla 140 (CTRL+ ENTER --o 
((RUN--) para la continuaci6n del 
mismo. Te recomendamos que, si es- 
t6s redefiniendo las ecuaciones, Io 
hagas sobre las anteriores, para evi- 
tar posibles errores. 
Ya m6s adelante, tendr6s que in- 
troducir ciertos 6ngulos de inclina- 
ci6n en las apciones Caballera y Di- 
m6trica. Aunque no seas un deli- 
neante, tanteando con los valores de 
estos 6ngulos podr6s comprender su 
valor en la representaci6n, que es 
bien simple: en la Caballera, los ejes 

X e Y est6n fijos en el piano de re- 
presentaci6n (X=horizontal, Y= ver- 
tical): es el eje Z el que est6 fuera del 
piano y su posici6n est6 dada por 
dos 6ngulos; uno Io ubica fuera del 
piano de representaci6n (piano X-Y), 
es decir, media entre dicho piano y 
el eje Z; cuanto m6s crezca su valor, 
el eje Z se ver6 tanto m6s disminui- 
do; el otro mide la distancia angular 
que hay entre el eje X y la proyec- 
ci6n en el piano del eje Z, que es en 
realidad Io que se dibuja en el pia- 
no (su proyecci6n). En la Dim6trica, 
el punto de mira est6 sito entre los 
ejes X y Z, a igual distancia de am- 
bos, frente al eje Y; X y Z forman el 
piano X-Z, y su altura en grados va- 
ria con respecto al piano de repre- 
sentaci6n, y con 61 el eje Y, ya que 
guardan entre ellos un 6ngulo fijo de 
90 ° (en la Monom6trica, el dngulo 
estd fijo de forma que los tres ejes se 
proyectan con un dngulo igual para 
todos con respecto al piano); el 6n- 
gulo que introduces en esta opci6n 
es el que media entre el planode re- 
presentaci6n y el piano X-Z; la rela- 
ci6n entre este ngulo y los restan- 
tes es f6cil de hallar gracias a la dis- 
tancia angular constante entre los 
ejes. En cuanto al (valgr del bu¢le, 
debes introducir los valores de inicio 
y final del segmento de funci6n que 
quieres visualizar. El programa in- 
gresar6 esos valores en el bucle de 
representaci6n, tomando como STEP 
el valor que le introduzcas en la pre- 
gunta siguiente. Los colores de tinta, 
papel y borde s61o los introducir6s 
una vez y ser6n los que muestren la 
pantalla a la hora de representar. 

6 /,cooY AMSTRAD 
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LA ESTRUCTURA 

La estructura del programa es la 
siguiente: 
50 Llama a la subrutina de 
presentaci6n y establece el 
modo 1. 
60-130 Instrucciones generales del 
programa. 
140 Introducci6n de las ecua- 
clones, define tecla 140. 
150-160 MenO de perspectivas. 
170-210 Rutina de final: opciones 
de variar de inclinaci6n, 
perspectiva o funci6n; re- 
define la tecla 140 a su va- 
lor original si finaliza el 
programa. 
2:20-260 Perspectiva Caballera. 
260 Bucle de representaci6n 
(Cabal/era). 
270-310 Perspectiva Monom6trica. 
310 Bucle de representaci6n 
(Monom6trica). 
320-370 Perspectiva Dim6trica. 
360-370 Bucle de representaci6n 
(Dim6trica). 
380-390 Inserci6n de las ecuacio- 
nes como subrutina llama- 
da desde el bucle de re- 
presentaci6n. 
400-480 Subrutina de instrucciones 
relativas a cada perspec- 
tiva. 
490-510 Subrutina de asignaci6n 
de tintas, bucle y STEP por 
el teclado. 
520-530 Preparaci6n de la ventana 
de puntos de torte en la 
pantalla de representa- 
ci6n. 
540-550 Detecci6n e impresi6n de 
los puntas de corte con 
scroll. 
560 Subrutina de movimiento 
de pantalla para borrado. 
570-630 Subrutina de presentaci6n. 
t,.coHoY AMTRAD 7 



20 REM 
S8 REM ** P0 BULLON 
58 GOSU8 5SB:BORDER 3:MODE I:SOUND 
1,5,15,5 
68 INK O,G:INK 1,24:LOATE 7,18:PR! 
NT Deseas instrucciones (s/n): aS 
=UPPER$(INKEY$):IF a$='N" THEN GOSU 
8 568:GOT0 14B ELSE IF a$(>'S = THEN 
68 ELSE GOSU8 568 
78 REM *** INST 
RLICCIOIES 
S8 LOCATE 1,2:PRINT" Este program 
a sirve para repreentar,en ires di 
mensic, ne, la funcion qua le ntro 
duzcas; para ello te editara la l- 
nea 381, Y dispondras hata la line 
a 389para introducir tus ecuaciones 
':PRINT 
mB PRINT Introduce las ecuacion 
ependientes de la variable indepe 
ndente w. Puedes lntro- ducir cond 
icones en 8ac; pot ejemplo,si la 
funcion da "infinto" en w=5, pue- 
des Introducir l condicion:" 
188 PRINT" IF w(>5 THEN (formulas> 
ELSE (valor>' :PRINT:PRINT' Una ve 
z ha×as introducido tus ecua- cion 
as, pulsa "ESC" y "CTRL+ENTER" (cua 
-dro numerico) pare la continuaP el 
pro- grama.":LOCATE 7,22:PRINT"PUL 
SA <space} PARA CONTINUAR:SOUND I, 
58,15,5 
110 WHILE INKEYS<>  ":WEND:GOSU 56 
8:LOCATE 1,2:PRINT' Te aparecera 
ngulos de perspectiva. Podras defin 
ir dichos angulos, asi c omo la tin 
tay el' 
128 PRIh'papel, el bucle y su step 
.:PRINT:PRINT:PRINT" Una vez fin 
alizada la representacion,aparecera 
el mensa.ie 'R.T.' en la esqui-na i 
nferior zquer.da. Al pulsar cual- 
quiet tecla, podras optar por camb 
ar deinclinacion, perspectiva o fu 
138 LOCATE 7,21:PRINT"PULSA <space> 
PARA C0TINUAR':SOUND 1,58,15,5:WH 
ILE INKEY${>" :WEND:GOSUB 568 
148 LOCATE 8,4:PRINT'INTRODUCE TUS 
ECUACIONES:SOUND 1,50,15,5:KEY 
,"CLS:RUN 150"+CHR$(13):LOCATE 1,9: 
AUTO SI,I 
158 MODE I:INK 0,16:INK I,:LOCATE 
I,I:PRINT "REPRESENTACION':LOCATE I 
2,8:PRINT "I .... Perpectiva Caballe 
ra' :LOCATE 12,11:PRINT '2 .... Perspe 
ctiva Monometrica':LOCATE 12,14:PRI 
NT 3 .... Perspectiva Dimetrca':SOU 
NO 1,58,15,5 
168 LOCATE 13,22:PRINT "PULSA TU OP 
CION':a$=INKEY$:IF aS-'' THEN 168 E 
LSE IF a$=l  THEN GOT0 228 ELSE IF 
a$ "2" THEN GOT0 278 ELSE IF a$-S 
 THEN GOT0 
178 REN *** 
FINAL 
188 LOCATE 1,25:SOUND 1,58,15,5:PRI 
NT "R.T.':WHILE INKEY$-'':WEND:LOCA 
TE 1,25:SOLND 1,58,15,5:1F incl I T 
HEN PRINT "Nueva inclination" ELSE 
PRINT Nueva perspectva?':GOT0 28 
198 a$=UPPERS{INKEYS):IF aS-'' THEN 
198 ELSE IF a$ "S" THEN ON direc G 
OTO 238,328:ELSE LOCATE 1,25:SOUND 
1,58,15,5:PRINT "Nueva perspectiva? 
288 aSUPPER$(INKEY$):IF a$ -°" THEN 
28 ELSE IF a$ "S" THEN GOSUB 568: 
GOTO 158 ELSE LOCATE 1,25:PRIhrr SPA 
OE$(28):LOCATE 1,25:SOUND 1,58,155 
:PRINT "Nueva funcion?" 
218 a$-UPPER$(INKEY$):IF aS-'" THEN 
218 ELSE IF a$-'S" THEN GOSUB 568: 

MODE I:SOUNO 1,58,15,5:GOTO 68 ELSE 
IF a$='N" THEN CLS:LOCATE 28,12:PR 
INT "** FIN DEL PROGRA **':KEY 14 
8,'RUN'÷CHR$(4)+CHR${13):LOCATE 1, 
I:ENO 
228 REM *** CABALL 
ERA *** 
2S8 GOSUB 5&e:MODE I:INK @,@:INK I, 
24:tit$-'PERSPECTIVA CABALLERA:LOC 
ATE I,I:PRINT tt$:LOCATE 5,12:SOUN 
O 1,5@,I5,5:PRINT °Instrucciones? 
s/n)" 
248 a$--UPPER$(INKEY$):IF a$(>S" AN 
O a$<>'N" THEN 248 ELSE IF aS S" T 
HEN LOCATE 5,12:PRINT SPACE$(38):GO 
SUB 488 
258 LOCATE I,I:PRINT titS:LOCATE 5, 
12:SOLIND 1,58,15,5:INPUT Inclin. e 
je z sobre plno xy';inI:LOCATE I,I 
2:PRINT SPACES(4):LOCATE 5,12:SOL 
O 1,58,15,5:INPUT Inclin. eje z ob 
re eje x';in2:LOCATE 1,12:PRINT SPA 
CE$(48) 
268 GOSU8 49B:MODE 2:GOSUB 538:0RIG 
IN 268,288:FOR w ampl TO ampll STEP 
stp:G0SU8 388:GOSU8 548:zx z*C0S( 
nl)*COS(in2):zy=z*COS<inl)*SIN(in2) 
:PLOT x-zx,y-zy:PLOT x,8:PLOT 
LOT -zx,-zy:NEXT:direc-1:incl I:GOT 
0 17 
278 REM *** NON0 
METRICA 
288 G0UB 568:MODE I:INK 8,8:INK I, 
24:tIt$-'PERSPECTIVA MONOMETRICA':L 
0CATE I,I:PRINT tltS:LOCATE 5,12:S0 
UND 1,50,15,5:PRINT 'Instrucciones? 
(s/n}  
298 a$=UPPER$(INKEY$):IF aS S  THE 
N LOCATE 5,12:PRINT SPACE$(SB):GOSU 
B 448: ELSE IF a$='N" THEN LOCATE I 
,12:PRINT SPACES(48) ELSE 298 
388 LOCATE I,I:PRINT ttS:SOSUB 498 
:MODE 2:GOSUB 538:0RIGIN 268,288 
318 FOR w-ampl TO ampll STEP sip:G0 
SUB 388:GOSUB 548:xx x*8.TB71:xy x* 
0.35355:y y*8.86682:zx-z*8.78718678 
I:zy z*8.35355:PLOT x×-zx,y-(xy+zy} 
:PLOT 8,y:PLOT ×x,-×y:PLOT -z×,-zy: 
NEXT:incI-e:GOT0 
328 REM *** D 
IMETRICA *** 
338 GOSUB 568:MODE I:INK 8,8:INK 1, 
24:tit$-'PERSPECTIVA DIMETRICA':LOC 
ATE I,I:PRINT titS:LOCATE 5,12:S0UN 
O 1,58,15,5:PRINT =Instrucciones? 
s/n) * 
348 a$=UPPER$(INKEY$):IF a$-"S  THE 
N LOCATE 5,12:PRINT SPACE$(38):GOSU 
B 468 ELSE IF a$<>'N" THEN 348 
358 LOCATE I,I:PRINT titS:LOCATE 3, 
12:SOUND 1,58,15,5:INPUT "Incl. pla 
no xz sobre plano repr.';nt:LOCATE 
1,12:PRINT SPACE$(58):GOSUB 498 
368 MODE 2:csenl-SIN(nl):senp-csen 
l*8.7871867:csenp (l-(senp*2))*8.5: 
GOSU8 538:ORIGIN 268,288:FOR w ampl 
TO ampll STEP stp:GOSUB 388:GOSUB 
540:xx=x*8.7B7186:xy xx*COS(inl):y 
y*csenl:zx-z*8.787186:zy zx*COS(inl 
) 
378 PLOT xx-zx,y-(xy+zy):PLOT 8,y:P 
LOT xx,-xy:PLOT -zx,-zy:NEXT:d=rec- 
2:incl=l:GOT0 178 
388 DEG 
398 RETURN 
488 REM *** INSTRUC 
CLONES PERSPECT. *** 
418 LOCATE 1,4:PRINT  En esta 
perspectiva, los ejes X e yestan en 
el msmo plano en angulo rectoy d 
ebes determinar la position del eje 
zque posee dos inclinacones:" 
428 PRINT:PRINT:PRINT * Una, co 
n respecto al plano de re- present 
acion o plano xy, y hace que el eJ 
e se proyecte en dicho plano en raz 
on de dicho angulo.  
438 PRINT:PRINT:PRINT" 0tra, la 
qua posee, con respecto aleje x, s 
u proyeccion sobre el plano. El pro 

VARIABLES 
Estas son las principales variables 
del programa: 
AS Representa la opci6n 
elegida en cada meng 
u opci6n. 
DIREC (1 6 2) Da la direcci6n - 
para nueva inclinaci6n. 
TITS Nombre de la perspec- 
tiva elegida. 
IN1, 
IN2 Inclinaciones de los 6n- 
gulos de perspectivas. 

AMPL, 
AMPL1, 
STP 

W 

ZX, ZY, 
Y, XX, 
XY, X 

TINTA, 
BORD 
PAPEL 

INCL, 
PA 

Valores de inicio, final y 
STEP del bucle de re- 
presentaci6n. 
Variable independiente 
de los ecuaciones intro- 
ducidas, generada por 
el bucle de representa- 
ci6n. 

Valores respectivamen- 
te de: coordenadas ho- 
rizontal y vertical del 
eje Z proyectado, coor- 
denada de la proyec- 
ci6n del eje Y, coorde- 
nadas horizontal y ver- 
tical del eje X proyecta- 
do (Mono y Dimgtrica), 
coordenada del eje X 
(Caballera). 

Valores de la tinta de la 
pluma, borde y papel 
introducidos por el te- 
clado. 

Conectam o desco- 
nectam la opci6n, res- 
pectivamente, de nue- 
va inclinaci6n y nueva 
asignaci6n de colores 
por el teclado. 

8 cooyAMSTRAD 



grama Io t oma en sentido antihorari 
o.":LOCATE 6,22:PRINT "PULSA <space 
> PARA CONTINUAR*:WHILE INKEY$<>* " 
:WEND:GOSU8 568:RETURN 
448 LOCATE 1,4:PRINT En esta 
perspectiva, los ejes estanfijos a 
unos treinta grados sobre el pla 
no de representacon, lo que provoc 
a en la proyeccion una separacion d 
• 128 grados.* 
458 PRINT:PRINT:PRINT" Pot lot 
anto, solo tendras que n- troducir 
los valores del bucle y step, y d 
e la tinta si no ia has ntroducido 
antes.*:LOCATE 6,23:SOLkND 1,58,15 
,5:PRINT "PULSA <space> PARA CONTIN 
CAR':WHILE INKEY$<>" :WEND:GOSUB 5 
68:RETURN 
468 LOCATE 1,4:PRINT" En esta p 
erspectva, los ejes x y zforman el 
plano xz, con 98 grados res- pect 

o el eje y, y un angulo variable co 
nrespecto al plano de representacio 
no • 
478 PRINT : PRINT : PRINT : PR INq'" Un 
icamente, pues, debes introducer el 
angulo que media entre el piano xz 
y el de representacion, quedando l 
a pos- con de1 eje y determinada. 
488 LOCATE 6,23:PRINT "PULSA <space 
> PARA CONTINLIAR':WHILE INKEY$<>" " 
588 IF pa=8 THEN LOCATE 5,12:SOUND 
I,SB,15,5:INPLFF "Color del papel';p 
apel :LOCATE 5,12:SOUND 1,58,15,5:1N 
PUT "Color de la tinta;tinta:LOCAT 
E J I2:PRINT SPACE$(48):LOCATE 5,12 
:SOUD 1,58,15,5:INPUT 'Color del b 
orde" ;bord:LOCATE 5,12:PRINT SPACES 
(48) :pa=l 
518 LOCATE 1,12:PRINT SPACE$(48):L0 

CATE 5,12:SOUND 1,58,15,5:INPUT 
cle:desde,ampl:LOCATE 21,12:INPUT 
"hasta',ampl1:LOCATE 1,12:PRINT SPA 
CE$(48):LOCATE 5,12:SOUND 1,58,15,5 
:INPUT "Step del bucle';stp:INK 
apel:INK l,tnta:BOROER bord:GOSUB 
568:RETURfl 
528 REN *** P 
ANTALLA 
538 LOCATE I,I:PRINT tit$:WIND01l #I 
,6,88,1,25:LOCATE#1,2,1:PRINT#1,"> 
Cortes con ejes:',' -X- -Y- -Z- 
--"," ( ,  ) ":lot 3 
:RETURN 
548 IF ((x-8 AND y-e) OR (x-B AND z 
=8) OR (y=8 AND z=8)) THEN LOCATE 
1,2,1oc:PRINT#I,*( ;INT(x);",';INT( 
y);",';INT(z);")°;w:loc-loc+1:IF lo 
c-25 THEN LOCATE #1,1,1De:PRINT#I," 
SCROLL:<space>":WHILE INKEY$<>  
EN0:CLS#I:GOSUS 538:RETURN ELSE RET 
URN 
558 RETURN 
560 LOCATE 1,25:FOR n=8 TO 25:PRINT 
:SOUND 1,38-n,I:FOR a=8 TO 58:NEXT: 
NEXT:RETURN 
57@ REM ** PRES 
ENTACION *** 
580 INK 8,8:INK 1,7:INK 2,3:INK 3,2 
4:INK 418:INK 14,14,18:SPEED INK 5 
8,28:MODE 8:PEN 3:FOR n-8 TO 15:LOC 
ATE 3+n,4:PRINT CHR$(288):LOCATE 3+ 
n,IS:PRINT CHR$(218):NEXT:FOR n-e T 
0 2=LOCATE 4,6÷n:PRINT CHR$(211):L0 
CATE 17,6+n:PRINT CHR$(289):NEXT 
598 FOR n 8 TO 6:LOCATE 2,4+n:PRINT 
¢:HR$(289):LOCATE 19,4+n:PRINT CHR$ 
(211):NEXT:FOR n=8 TO 13:LOCATE 4÷n 
,5:PRINT CHR$(218):LOCATE 4+n,9:PRI 
NT CHR$(288):NEXT:PAPER 14:PEN 4:L0 
CATE 5,7:PRINT"PERSPECTIUAS":PLOT 6 
8,243:DRAW 128,288,1PLOT 68,346:DR 
 128,385 
688 PLOT 68,243:DRAW 128,288I;PLOT 
68,346:DRAJ 128,385,1:PLOT 578,243 
:DRAW 588,288,1:PLOT 578,346:DRAW 5 
88,385,1:0RIGIN 388,125 
618 DEG:FOR n=-388 TO 368 STEP 
n/18:x=88*COS(n):zx-37.5*SIN(n):zy- 
21.656*SIN(n):SOLIND I,ASS(n),2:PL0 
T x-zx,y-zy,3:PLOT x,8,2:PLOT 8,y,2 
:PLOT -zx,-zy,2:NEXT 
628 FOR n=8 TO 3888:NEXT:GOSUB 568: 
FOR n-8 TO 888:NEXT:PAPER 8:GOSUB 5 
638 PEN I:MOOE 2:PLOT 445,15,1:DRAJ 
445,185:DRAWl 688,185:DRAW 688,15:D 
RAW 445,15:PLOT 445,75:DRAW 688,75: 
SOUND 1,58,15,5:LOCATE 58,28:PRINT" 
Programado por:°:LOCATE 58,23:PRINT 
"Pablo Bullon":FOR n=8 TO 3888:NEXT 
:RETUI 

//COHOY AMSTAD 9 



AMSTRAD CP -464 ;M TR' 

.\ 

, ORDENAD 

R 

SERIE CPC 

AMSTRAD CPC 464 

AMSTRAD CPC 6128 

, TECLADO, Teclado profesional con 
74 tedas'en 3 bloques - Hasta 32 teclas 
programables - Teclado redefinible 
, PANTALLA, Monitor RGB verde (12") 
o color (14") 
4o× ,co 6o×  ,oo 
- Se pueden defini[ hasta 8 ventant,s,, de 
texto, y 1 de grificos, SONIDO ' 
• 3 canales de 8 octaves moduladas 
independienemente -,Attavoz interno 
regulable - Salida estGreo • BASIC 
• Locomotive BSIC ampliado en ROM- 
Incl"t:[, - los comandos AFTER y EVERY 
=.para control de intepciones 

UNIDAD CENTRAL. MEMORIAS 
• Microprocesador Z80A- 64K RAM 
ampliables • 32K ROM ampliables 
CASSETI'E • Cassette incorporada con 
velocidad de grabaciGn (1 6 2 Kbaudios) 
controlada desde Basic • CONECTORES 
• Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centronics, Salida 
estreo, joystick, lpiz 6ptico, etc, , 
• SUMINISTRO • Ordenador con monitor 
verde o cglor 8, cassettes con" 
programa: : Libr,,-"Ouia de Referencta 
BASIC para'-i prog arador" - Manual n 
castellano  Garantia Oficial AMSTRAD 
ESPAIA. 

TODO POR[59.900 Pts. (monitor verde) 

UNIDAD CENTRAL. MEMORIAS 
• Microprocesador Z80A 128 K RAM 
ampliales - 48 K ROM ampliables 
UNIDAD DE DISCO • nid 
incorperada para disco d&*3 ' con 
per tara, SISTEMAS OPERATIVOS 
• AMSDOS, CP/M 2.2, CP/M Plus (3,0) 
• CONECTORES • Bus PCB altiuSo, 
paralelo Centronics, c..sette --,,:t-fiG, 
2." Unidad de Disco, salida •stereo, 
joysticks,q.piz ptico, etc, 
• SUMINISTRO • Ordenador con monitor 
verde o color- Disco con CP/M 2.2 y 
lenguaje DR, LOGO- Di oil CP/M 
Plus y utilidades - Disco con 6 prgramas 
de obsequio - Manual en cast•llano - 
Garantia Oficial AMSTRAD ESPAA, 
TODO POR! 84.900Pts, (monitor verde) 



W-8256 

A 

STRAD CPC-61 8 

,,"STP,.D l:)CW 8256 completcontecladoanOtallaO,udnd:or 
de Disco e lmpresora - Discos con el .. 

UN]DAD CENTRAL. MEMORIAS 
. Micropt'oce.ador Z80A- 256K RAM de 
las que l12K se utilizan como disco RAM 
• TECLADO •,,Teclado profesional en 
castellano (fi, acento...) de 82 teclas 
• PANTALLA • Monitor verde de alta 
resoluci6n - 90 columnas × 32 lineas de 
texto. UNIDAD DE DISCO • Disco de 
3" y 173K por cara- Opcionalmente, 
2? Unidad de Disco de 1 Mbyte integrable 
• SISTEMA OPERATIVO * CP/M Plus 
de Digital Research • IMPRESORA • 
' ta calidad (NI;Q) a 20 :,p,s. - Calidad 
.tnd[ a 90 C,l,S, - Papel continuo u 
ojas sueltas - Alineaci6n automtica del 
oape] - Caracteres normales, 
• ,mpnmidos, expandidos, control del 
oaso de ]etra (ronnal, cursiva, n.egrita, 
subindices, suptfn.dices, breyado, etc). 
, OPCIONES • Kit de Arnpliaci6n a 
12K RAM y 2? Unided de Disco- 
Interface Serie RS 232C y parale]o 

procesador de Texto LocoScript, CP/M 
Plus, Mallard BASIC DR. LOGO ydiversas 
utilidades - Manuales en cast•llano - 
Garantia Oficial AMSTRAD ESPAIA. 

TOI)O POR 129,900 Pts. 

Los ms pre.tiglosos paquetes de 
Software Profesional, en fornlato 
AMSTRAD.,, a pre¢ios AMSTRAD 

Existe tambin la versf6n PCW 8512 con 
512K RAM y la 2? Unidad de DisCO de 
1 Mbyte inc0orada.] 
* E1 PGW 856 puede utflizarse como 
tenal yen comicadones. 
E1 I.V,A, no est incluido en los precios. 
N  muy ponte venfic laga d 
aparato ya e slo  PANA puede 
gtizae la ordenada rean y sobre to 
matefies de repuesto orioles (Motor, 
ordenador, case o idades de scos). 

 Aravaca, 22, Tel. 459 30 01, Tlex 47660 I NSC , 
Fax 459 2292. 28040 adr L 
Deleacin en Catalura: U. Tarragona, 110 Tel, 3251058. 
08015 Barcelona. 
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nte /o insistencio de los/ectores que ban acogido nuestro pequefio regalo con 
m6s benevolencio de la acostumbrado, volvemos o publicor la segunda edici6m 
de los cartulas para disco. 
Adems en sucesivas semanas os proporcionaremos nuevas coratulas para vuestros 
discos. 

Lenguajes 

CARA B 



OFERTA ESPECIAL I ANIVERSARIO 

, " e 

Suscribete ahora a Microhobby Amstrad, o realiza tu 
renovaci6n, y recibir6s, totalmente gratis, un regalo de 
excepci6n: una suscripci6n a Amstrad Cassette pot 
seis meses. 
Cada cinta contiene los programas publicados pot 
Microhobby Amstrad durante un rues. 
Todos los programas de nuestras clntas se 
encuentran desprotegidos, con el obieto de 
facilitar su copia en disco//la revisi6n de los 
listados. 

,F 

En cada cinta encontrars: °' --c 
-- Apasionantes iuegos Ilenos de acci6n y dinamisma. CS  . , 
-- Rutinas en c6digo m6quina, para que las utilices en tus propos programas. 
-- Y pequehas trucos de programaci6n, para que, poco a poco, le convtertas en un expero. oq q°:._'k ..  



" LACOIV 5.0 

Fco. Javier Barcel6 T. 

Una de las a.licaciones m6s comunes en ordenadores, dentro del campo de la gesti6n, 
la consttuyen los programas de contabilidad. Y hay que decir, anticipando la 
conclusi6n, que el programa que boy se analiza, permite flevar una contabilidad 
bastante completa de una o varias empresas, sin grandes complicaciones. Pero 
ve6moslo m6s detenidamente. 
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a presentaci6n de este 
paquete es la habitual. Dentro de la carpeta, 
una funda para el disco y unas instrucciones 
escuetas, pero completas. El disco de progra- 
mas viene preparado para arrancar el orde- 
nador, incluyendo el sistema operativo por la 
cara B, incluyendo el comando PIP, necesa- 
rio para los usuarios del PCW 8256, dado que 
los ficheros se almacenan en el disco virtual 
M, y al finalizar de utilizar el programa se de- 
ben copiar al disco de datos. Las instruccio- 
nes hacen especial menci6n a este punto, da- 
do que de olvidarlo perderian los datos intro- 
ducidos en esa sesi6n. Pero si se dispone de 
dos unidades de disco, no s61o se evita este 
engorro, sino que adem6s, al ser la segunda 
unidad de mayor capacidad que la primera 
-atenci6n a esle punlo-el n0mero de apun- 
tes que se puede tener simultdneamente en un 
disco, aumenta aproximadamente hasta diez 
rail. 

Instalaci6n 

La instalaci6n del programa viene realiza- 
da para el equipo est6ndar, pero estd previs- 
to en las opciones poderlo modificar si se uti- 
liza una impresora diferente (ms rdpida, par 
ejemplo...) o bien si se dispone de dos unida- 
des de disco, en cuyo caso se deben direccio- 
nar los ficheros a la unidad Ben vez de a la 
M. Tambi6n en esta opci6n, se introducen los 
nombres de hasta cinco empresas, que son el 
m6ximo ngmero con el que se puede funcio- 
nor simult6neamente. Esta parte es de vital im- 
portancia porque el programa de seguiridad 
dispone de un sistema de claves originado pre- 
cisamente por los nombres de las mismas. Una 
vez decididos 6stos, hay que mandar un im- 
preso con dichos nombres, y nos remitir6n por 
correo la clave de seguridad. Si no se hace es- 
to, no se podr introducir rods de doscientos 
apuntes. 

./ Pla de Cuentas 
,H/¥ sas ptimoiales 
,H/Y Concertos uxilires ¢2 
-) notacio de sientos 
,sientos xtenos 31 

aor 
:ance e Suas  Sals SR 
Cuenta e F.xlotacio S 
£xlotacionnalitioa SS 
,Prewsion de Cobros  agos  
Modi£icar Ins.talacion t 
egeneacion ee TCeS  

,in e ertura 
,Fin de Periodo 42 Fin plicacion 
,egulariacion estiou 43 
,Fin de derczcio 44 OPCI :|: 
Cuentas 37 flputes  axieo e Libres 0 

Por otro lado, la cantidad de apuntes per- 
mite dar tiempo al correo para recibir la con- 
testaci6n. 
El programa est estructurado con un me- 
nO principal, que reOne agrupadas todas las 
opciones del mismo, aunque algunas de elias 
incluyan submen0s. Adem6s, en el meng prin- 
cipal aparece un contador de asientos y apun- 
tes, que informa en todo momento de la ca- 
pacidad usada y libre de la que se dispone. 

Creaci6n del plan contable 

El primer grupo de opciones permite dar de 
alta Masas Patrimoniales, Cuentas y Concep- 
tos. Se pueden definir hasta 20 Masas Patri- 
moniales, que servir6n posteriormente para 
delimitar el Balance de Situaci6n. Tambi6n se 
pueden predefinir hasta 45 conceptos, que 
permiten al realizar los asientos, ahorrar es- 
pacio y tiempo. 
En cuanto a definir el Plan Contable, el pro- 
grama permite una perfecta estructuraci6n del 
mismo, disponiendo de hasta seis niveles de 
agregaci6n m6s el de detalle. Dado que el 
programa toma por defecto siempre el nivel 
de detalle, al dar de alta cuentas de niveles 
superiores, es necesario aadir al n0mero de 
la cuenta un gui6n, para que no Io rellene de 
ceros. 

AI dar de alta las cuentas de nivel, con tres 
digitos, el programa pregunta la masa patri- 
monial a la que pertenecen, dentro de las que 
se hayan creado o vayan a crearse, con el fin 
de incluirlas en esa masa al realizar el Balan- 
ce. Adems, el programa admite que el n0- 
mero de cuenta incluya letras, con Io que el 
Plan que se quiera realizar puede ser todo Io 
completo que se desee. 
Esta opci6n dispone de un submenO que per- 
mite dar de alta, modificar, anular y listar al- 
guna cuenta o todo el Plan de Cuentas. Na- 
turalmente, Io mismo se puede realizar con los 
conceptos y con las masas patrimoniales. Es 
ms que conveniente disponer a la vista de un 
listado de conceptos, para utilizarlos sin tener 
que saber el n0mero de cada uno de memo- 
fla. El listado del plan de cuentas incluye el sal- 
do de cada cuenta del nivel de detalle, y la 
masa patrimonial a la que pertenece. 
Cuando se finaliza de dar altas en el Plan, 
se comprueba que no hay cuentas que ya exis- 
tan o que se hayan introducido dos veces, en 
cuyo caso se ignora la primera introducida. 
Posteriormente informa del nOmero de cuen- 
tas existentes y de cu6ntas se han dado de alta. 

ta lntroduccl6n 
de apuntes contables 

Una de los novedodes mes importantes de 
las que se dispone en este progra.ma, es que 
proporciona el medio para <<¢op.ar apun- 
tes, que provengan de otras aplicaciones, ta- 
les como hojas de c6lculo, programas de fac- 
turaci6n, etc... Para ello, pregunta el hombre 
del fichero del que se van a leer los datos, la 
Iongitud de registro, yen qu6 posici6n de es- 
te registro se va a encontrar los distintos da- 
tos del asiento, asi como el nOmero de fiche- 
ros con el programa, naturalmente siempre 
queen 6stos est6 toda la informaci6n que se 
necesite. 
La introducci6n manual de asientos, no ofre- 
ce ningOn problema. Los datos se introducen 
por filas y columnas, y algunas teclas predefi- 
nidas facilitan el moverse a trav6s de la pan- 
talla para rectificar errores, o copiar datos. 



La primera es FIN DE APERTURA. Este se 
utiliza para actualizar el saldo de las cuentas 
al inicio del ejercicio econ6mico. AI iniciar a 
operar con la contabilidad de una empresa, 
habr6 que introducir los saldos de los que se 
parte mediante el asiento de apertura, y lue- 
go utilizar esta opci6n para actualizar las cuen- 
tas, pudi6ndose despu6s empezar a introdu- 
cir los asientos normales del rues. Su usa ina- 
decuado puede conducir a errores en las ci- 
fras de variaci6n de existencias yen el Balan- 
ce de Sumas y Saldos. 
La segunda opci6n es FIN DE MES. Actua- 
liza los campos de sumas del rues anterior para 
su presentaci6n en los balances. Debe utilizar- 
se antes de empezar a introducir los asientos 
del rues siguiente. 
La tercera opci6n es FIN DE PERIODO. Es- 
ta opci6n es puramente operacional. Si se es- 
td utilizando una sola unidad de disco, la ca- 
pacidad del mismo hace que se Ilene con un 
ngmero de apuntes realizados, no excesiva- 
mente grande. Para continuar con la conta- 
bilidad de apuntes se utiliza esta opci6n, que 
inicializa el fichero de movimientos despu6s de 
actualizar los saldos de las cuentas, permitien- 
do continuar asi introduciendo apuntes. Lo 
ideal es que se utilice despuds del proceso de 
fin de rues, y no a mitad del mismo, para sim- 
plificar las correcciones de los asientos. 
La cuarta opci6n es REGULARIZACION DE 
CUENTAS DE GESTION. Esta opci6n genera 
un asiento que regulariza las cuentas de ges- 
ti6n. El asiento que realiza, se almacena en 
un fichero auxiliar de asientos que debe ser 
incluido posteriormente en el fichero principal. 
Esta opci6n se debe realizar despu6s de intro- 
ducir todos los apuntes del ejercicio, y antes 
de hacer el proceso de fin de ejercicio. 
La 01tima opci6n de este grupo es FIN DE 
EJERCICIO. Se utiliza para cerrar la contabi- 
lidad correspondiente a un ejercicio econ6mi- 
co, actualizar los saldos de las cuentas, inicia- 
lizar el fichero de movimientos y realizar auto- 
m6ticamente el asiento de apertura, que que- 
da grabado en el fichero auxiliar, teniendo 
que ser incluido posteriormente en el fichero 
principal. 

EXPLOTACION ANALITICA INDESCOMP INT, (Ol-enero-86) 
IMPORTES. 

CUENTAS Y CONCEPTOS 
INGRESOS 
........ I0,O00,000.00 
-Ventas Mers.. 0.00 
-VARIACION DE XISTENCLAS ................. 
10,000,000.00 

i00 

TOTAL INGRESOS ............................... 
cOSTa DIRECTO 
............. 2, O03,500. OO 
-Compras ................. 
2. 003,500. O0 20 
TOTAL COSTa DIRECTO ............................... 
................................................ 7,99o, 500 O0 80 
MARGIN BRUTO .................................... 
CARGAS DE ESTRUCTURA 
O. OO O. OO 
-Sueldos y SalarlOs 0.00 
SueldoS Y Salarlom 
O. OO O. OO 
-Gastos Diversos O, O0 
Material de Oflclna 
0,00 0 
TOTAL CAROAS ESTRUCTURA ........................ 
...................................................... MARGEN NETO  =q'-ggs'- 500._ 00== 80 

Asi, con ENTER se pasa al data siguiente, 
con F7 se copia el data de esa columna del 
asiento anterior, con F1 se avanza y con F3 
se retrocede una pantalla, la tecla (!) recal- 
cula el saldo del asiento, si se han modificado 
datos etc... 
Los datos que se pueden introducir en los 
asientos son No. de documento, fecha, c6di- 
go de concepto, concepto, cuenta del debe, 
cuenta del haber, importe y fecha de venci- 
miento. AI finalizar de introducir asientos se 
pulsa la tecla ESC para ir a un submen0, don- 
de se dispone de las siguientes opciones: 

0. MENU ANTERIOR: Vuelve al men0 prin- 
cipal. 

1. INTRODUCIR APUNTES: Vo a la pan- 
talla de apuntes. 

2. MODIFICACION DE APUNTES: Per- 
mite modificar apuntes de la pdgina que se le 
indique, o bien Iocalizar la p6gina, pasando 
de una a otra mediante F3 y F1. 

MIilEMIMITO )EL ICHERO ) HSS PIRIIqOMIIILE$ 

8 :llmouilizado lmat, 3 :I,ouilizado Fin. 
:Sit, ransitorias 9 :Periodilicacion 
It :Capital  eservas I :Subvenciones 
I? :; 18 :: 

I :l.ovtlizado Mat. 
4 :stos Aortizables 
? :Ctas, Financieras 
15 :Fras, E Curso, 
13 :Prey,  Provisoes 
I :creed0res 
19 :: 

I :Ntro, Pago No,  :Ntro. Cobro No. 3 :Talo. 
:Gtos, )iversos  :Transferencia No, 6 :Giro Post, No, 
PiG)to leleg, o, B :Factura o, S :)ago a 

13 :: 14 :: IS :: 

3. INSERTAR PAG. APUNTES: Permite 
intercalar apuntes entre dos p6ginas. 
4. LISTADO DE APUNTES: Lista todos los 
apuntes entre dos fechas o nOmeros. 
5. ACTUALIZAR DATOS CONTABLES: 
El paso par esta opci6n es muy interesante, 
pues actualiza los saldos de las cuentas, pro- 
porcionando adem6s un listado de errores, in- 
formaci6n sabre descuadres, etc. En caso de 
haber utilizado alguna cuenta que no estuviera 
dada de alta elprograma realiza el apunte 
contra la cuenta 999999, con Io que se oca i- 
za f6cilmente. Asimismo, en caso de que el 
asiento no cuadre, tambin Io cuadra contra 
la misma cuenta. 
6. CONSULTA DEL PLAN DE CUENTAS: 
Permite consultar alg0n grupo o cuenta deter- 
minada. 
La Oltima opci6n de este grupo dentro del 
MenO General, es Modificaci6n de Apuntes, 
y se usa para modificar cualquier campo de 
cualquier apunte ya actualizado. Para ella, 
presenta una pantalla con todos los datos del 
apunte que se le introduzca, y posteriormen- 
te se vuelve a cuadrar el diario, avisando si 
exite descuadre en el mismo. Si se cambia el 
n0mero de la cuenta, descuenta del saldo de 
la cuenta antigua el importe del apunte, y Io 
suma al saldo de la nueva. No admire que la 
cuenta nueva no exista. 

Cierre de periodos 

Existen en el Men0 General cinco opciones 
que se encargan de realizar distintos tipos de 
cierres en la contabilidad, tanto par motivos 
puramente contables coma par motivos de 
operatividad del sistema. 
El proceso que realizan estas cinco opcio- 
nes es bastante delicado. 
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Para prevenir posibles fallos, que no tienen 
par qu deberse al programa ya que basra un 
carte de luz, o cualquier otto fallo de Hard- 
ware para que podamos perder todos los da- 
tos, no es conveniente utilizar estas opciones 
sin antes hacer una o dos capias de seguridad. 

Obtenci6n de informes 

El siguiente grupo de opciones se encarga 
principalmente de realizar los diversos infor- 
mes que se necesitan a la hora de Ilevar una 
contabilidad oficial. 
DIARIO: Proporciona un listado del libra 
diario. Permite elegir un intervalo de fechas, 
uno de nOmeros de apunte y otro de referen- 
cias, asi coma s61o los asientos que incluyen 
cuentas que empiezen par un nOmero concre- 
to. Tambin permite optar par escribir o no el 
nombre de las cuenias, dar sumas del debe y 
haber iniciales, y empezar la numeraci6n de 
las p6ginas a partir de una p6gina en concre- 
to. Coma se puede ver, opciones m6s que 
ficientes para obtener el libra diario a nues- 
tro gusto. 
MAYOR: Proporciona un listado del libra 
mayor. Igual que la anterior opci6n, sta per- 
mite elegir una serie de parmetros. Pide el 
asiento a partir del que se desea el listado, el 
C, Itimo asiento al que se hard referencia, 
fechas inicial y final, la primera y final, la pri- 
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mera y la Oltima referencia, la primera y la OI- 
tima cuenta, asi coma si se desea el listado par 
pantalla o impresora, y si se desea una cuen- 
ta par p6gina o un listado continua. El listado 
incluye todos los movimientos de las cuentas 
que cumplan los requisitos anteriores, y dan 
de cada movimienio todos los datos del apun- 
te. 
BALANCE DE SUMAS Y SALDOS. Esta op- 
ci6n imprime el balance de sumas y saldos, 
permitiendo elegir la primera y la Oltima cuen- 
ta, asi coma si se desean s61o los datos del mes, 
o tambin los del ejercicio, y alga verdadera- 
mente Otil, el nivel de agregaci6n que se de- 
sea. Esto permite queen el balance salgan s61o 
determinados niveles de cuentas. Par eiemplo 
s61o las cuentas de m6s cifras. (Ya se sabe clue 
Hacienda s61o exige los balances a nivel de 
cuentas de tres cifras, y para clu dar mds de- 
talles...) 
BALANCE DEITUACION. Se puede obte- 
ner despus de inlroducir todos los asientos del 
mes y el de regularizaci6n de la cuenta de exis- 
tencias. Se debe obtener antes de realizar pro- 
cesos finales. Una curiosidad de este informe 
es que genera un fichero auxiliar que puede 
ser usado en otros procesos, como por eiem- 
plo con procesadores de texfo. Esta opci6n no 
permite seleccionar ningOn limite. 
Para que los balances tengan la debida co- 
herencia, todas las cuentas de detalle, es de- 
cir, de 7 cifras, deben tener su cuenta corres- 
pondiente de agrupaci6n, 3 cifras, dado que 
en caso contrario stas pueden no ser consi- 

deradas en el balance, con la consiguiente pgr- 
dida de informaci6n. No obstante, de ocurrir 
esto, sale un mensaje de advertencia en la 
pantalla. 
CUENTA DE EXPLOTACION. Realiza de 
forma autom6tica un informe de la cuenta de 
explotaci6n. Debe sacarse despus de regu- 
larizar las existencias, pero antes de regulari- 
zar las compras y ventas. 
EXPLOTACION ANALITICA. Da el mismo 
informe que la opci6n anterior, dividido en in- 
gresos, costos directos y cargas de estrudu- 
ra. Proporciona adem6s el tanto par ciento de 
los gastos sabre las ventas, al margen bruto 
de explotaci6n y margen neto. 
Adem6s de Io vista hasta ahora, PIACON 
dispone de una opci6n Ilamada PREVISION 
DE COBROS Y PAGOS, que permite mante- 
ner un fichero clasificado de cobras y pagos. 
En realidad esta opci6n knciona coma otro 
programa, con una estrudura paralela. La 
grabaci6n de asientos actualiza autom6tica- 
mente este fichero, con los apuntes que ten- 
gan fecha de vencimiento de cobras o pagos, 
y adem6s esta opci6n permite incluir, modifi- 
car o suprimir otros registros. Se pueden ob- 
tenet listados de previsiones entre dos fechas, 
asi coma suprimir de un <(plumazo> los regis- 
tros anteriores a una fecha determinada. AI 
sacar un listado, se elige la fecha inicial y la 
final, asi coma si se desea un listado de cobras 
o pagos, y si se desea imprimir el nombre de 
las cuentas, o s61o el nOmero. 
Esta posibilidad de elegir entre suprimir o 
no el nombre de las cuentas se debe a la ma- 
yor rapidez si no hacen falia los nombres, no 
s61o par la impresi6n, sino tambin porque el 
programa tiene que buscar cada nombre en 
el fichero de cuentas antes de imprimirlo. 
Las dos opciones restantes son opciones ope- 
rativas. La primera de elias, MODIFICAR INS- 
TALACION, permite adaptar el programa a 
los requerimientos del usuario. Dado que la 
impresora con la que vienen equipados los 
PCW no es el colmo de la rapidez, para el caso 
de que se instale otra impresora con unas ca- 
racteristicas diferentes, habr6 que definir pa- 
r6metros coma la Iongitud de p6gina y los dis- 
tintos tipos de ietras. Asimismo, si se utiliza otra 
unidad de disc.o habr6 que direccionar los fi- 
cheros a dicha unidad, y adem6s se utiliza pa- 
radar los nombres de hasta cinco empresas, 
nombres que saldr(n en las cabeceras de los 
listados. TambT6n se utilizar6 para inicializar 
los ficheros en un disco, previamente forma- 
teado. Si se inicializa el fichero de asientos, se 
elige el nOmero mximo de asientos a conte- 
ner, dentro de la capacidad m(xima del dis- 
co, y borrar( todos los datos previos que exis- 
tan en los ficheros. El nOmero m6ximo de 
apuntes del disco se calcula f(cilmente de una 
manera que viene explicada en el libra de ins- 
trucciones, y asi se dispone siempre de una re- 
ferencia para realizar los procesos de fin de 
periodo y poder cambiar de disco. 
La otra opci6n, REGENERACION DE INDI- 
CES, realiza un chequeo de los archivos, y pro- 



¢ BALANCE OE SITUACION ¢¢ PAGINA = I 
INOESCOMP INT, (OI-enero-86) .............................................................................. 
PASIVO 
ACTIO  .................................................................. 
:::::::::::::::::::::::::::: .............. 8000000,00:$ Ctas, Financieras 
 Inmovilizado at, :SlO Acreedoes no (omerc, 0,00 

200 Inmovilizado Material 8QOOOOO,OQ 
500,00 : Capital y Reservas 
I In=ovthzado Inmat, :lOS Capital Social llO00000,O0 
210 Inovilizado Inmat, 50O,OO :I13 Reservas Legales O,OO 
lOOO000,O0 
t fiastos Amortizables : Prey, y Provlsiones 
270 6astos Amortizables IO000OO,O0 O,OO 
:120 Pevsion para Riesgos 
 Existencias O,OO :A90 Provisiones 0,00 
300 Existencias O,OO : 
4996000,00 :160 Prestamos a P/L 0,00 
 Ctas, Financeras 
570 lesorera 996000,00 

llO00000,O0 

0,00 

O,OO 

-SO00000,O0 

I Acreedores 
1400 Proveedores 0,00 
1410 Acreedores Oversos -SO00000,O0 
1399650Q,00 5UAS PASIVO 6000000,00 
7996500,00 
SUMAS ACIIVD , RESULTADO (BENEFICID} ... 
13996500,001 TOTAL PASIVO llO00000,O0 -SO00000,O0 13996500,00 
13996500,00 
0,00 
IOTAL 
ACTIVO 

porciona un listado de los posibles errores que 
encuentre. Es particularmente 0til en caso de 
que ocurra alggn fallo en el fichera de cuen- 
tas, dado que reconstruye el saldo de las mis- 
mas a partir de los apuntes. 
Par Oltimo, la opci6n FIN DE ,PLICACION 

es el paso obligado para apogar el ordena- 
dot. Despu6s de utilizor esta opci6n, se debe- 
rn salvar los ficheros que residen en la uni- 
dad de disco virtual M, en el disco de datos. 
Para eso habr6 que usar el programa de CP/M 
PIP, dado que si se apaga el ordendor sin co- 
piar los ficheros, habremos perdido TODO el 
trabajo de dicha sesi6n, puesto que no habre- 
mos copiado la Oltima versi6n de los ficheros. 
Y ya que se hace este proceso, no est6 de ms 
realizarlo un par de veces sabre dos discos. 
Asi, siempre dispondremos de dos capias, para 
el caso que nos equivoquemos con el bollo, 
y mojemos el disco de datos en el car6 con le- 
che. Cosas mgs raras han pasado, yes depri- 
mente estropear el disco de datos despu6s de 
Ilevar meses funcionando con 61. No creen? 

Conclusi6n 

El funcionamien|o de la aplicaci6n duranle 
[a prueba ha sido impecable. Es f6cil de utili- 
zar, y muy compacta. Dada la cantidad de 
programas que incluye, de vez en cuando es 
necesario cambiar de cara el disco, pero ta es- 
.pera no resulta excesiva. En cuanto a su ca- 
pacidad, punto que es importante, el usa de 
otra unidad de disco resulta verdaderamente 
importante, para evitarse el engorro de tener 
los ficheros repartidos entre varios discos, 
mientras que diponiendo de la unidad extra 
de 760 Kb., el limite est6 cerca de los 10.000 
apuntes, capacidad m6s que sobrada para los 
posibles destinatarios de esta aplicaci6n. 
En su desarrollo se ha incluido detalles fran 

camente interesantes, coma la posibilidad de 
introducir apunles con ficheros provinientes de 
otras aplicaciones, y la creaci6n de ficheros 
auxiliares para grabar los balances, Io que 
permite su utilizaci6n par procesadores de tex- 
tos, asi coma el fichero de previsi6n de pagos 
y cobras. 
Los listados se realizan seg0n la parte del 
programa, en 80 6 132 caracteres de anchu- 
ra, y si bien su presentaci6n resulta perfecta, 
a veces se ha detectado cierto fallo al no cam- 
biar de tipo de letra cuando debe, con Io que 
ha habido que repetir el proceso, haci6ndolo 
correctamente la segunda vez. Otra cosa se 
echa en falta en algl0n balance excesivamen- 
te largo, es la falta de subtotales al fin de p6- 
ginas intermedias, aunque si los haya al fina- 
lizar el balance. 
Par Io demos, un programa bastante bue- 
na, quiz6s un poco engorroso si se usa con una 
unidad de disco, pero perfecto para dos uni- 
dades, yen realidad tambi6n para los usua- 
rios con una sola unidad si no realizan excesi- 
vos movimientos al rues. 
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Continuaremos esta semana con la aplicaci6n de la rutina de 
ndmeros aleatorios que confeccionamos la semana pasada, 
para realizar un juego muy popular, el denominado $im6m. 

que hayamos es- 
cogido este programa, no es par pu- 
ra coincidencia, sino que se ha ele- 
gido porque nos permifir6 aplicar 
varias rutinas que ya hemos visto en 
anteriores capitulos. 
En concreto, vamos a utilizar las 
rutinas de imprimir nOmeros decima- 
les en pantalla, la de m0sica y la an- 
teriormente citada de nOmeros alea- 
torios. 
Para aquellos que Io desconozcan, 
el juego que realizaremos es una 
prueba de la agilidad que se posee. 
En el original se utilizan colores pa- 
ra comprobar los reflejos de cada 
persona, pero en este caso vamos a 
ufilizar n0meros. 
Se trata de pulsar la tecla del nO- 
mero correspondiente al que apare- 
ce en pantalla en un tiempo determi- 
nado. Si transcurrido este tiempo no 
se ha pulsado dicha tecla, entonces 
el ordenador nos mostrar6 otro nO- 
meropara que intentemos teclearlo. 
Cada vez que se acierte un nOme- 
ro antes de agotar el tiempo permi- 
tido se nos aumentar6 la puntuaci6n 
y al mismo tiempo oiremos una m0- 
sica que nos indicar6 que hemos 
acertado. 
Asi pues, observando el nOmero 
de puntos obtenidos y el nOmero de 
pruebas que hemos realizado, po- 
dremos tener una visi6n general de 
los reflejos que poseemos. 
Una vez conocido el funciona- 
miento del juego, pasaremos a ver 
la forma en que se ha realizado, ex- 
plicando cada una de las rutinas fun- 
damentales que no se hayan estudia- 
do anteriormente en este curso. 
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Funcionamiento 
de las nuevas rutinas 

En primer lugar, se realizan las ini- 
cializaciones y se prepara la panta- 
Ila de traba o, adem6s de colocar a 
cero la variab e que nos indicar6 los 
puntos que se vayan obteniendo 
'PUNT'. 
Para ello colocamos la pantalla en 
modo 0, definimos la pluma con que 



se va a imprimir y se coloca el men- 
saje que nos indicar6 los puntos que 
se vayan obteniendo en cada una de 
los jugadas. 
A continuaci6n definimos una ven- 
tana, en la cual se imprimir6 el 
mero qu el ordenador nos propor- 
cionar6 y que es el que deberemos 
pulsar a trav6s del teclado. 
Seguidamente se elegirn el papel 
y la pluma para dicha ventana de 
juego. 
En este momento entramos en el 
bucle principal del juego, en el cual 
Io primero que se hace es Ilamar a 
la rutina de n0meros aleatorios, que 
en este caso se encargar tambi6n 
de imprimir en pantalla el nOmero 
generado. 
Dicho n0mero se colocar tambi6n 
en la variable 'NUMER'. La impre- 
si6n de pantalla se realizar suman- 
do 48 al nOmero obtenido para ob- 
tener de esta forma el c6digo A$¢1 
de dicho valor, y una vez hecho es- 
to se Ilamar6 a la rutina del firmwa- 
re encargada de imprimir caracteres 
en pantalla. 
LD A,(NUMER) ;Se coge el n0mero 
aleatorio 
ADD A,48 ;Le sumamos el valor 48 
CALL #BB5A ;Imprimimos en 
pantalla 
Veamos por qu6 debemos sumar 
dicho valor para obtener su c6digo 
ASCI. 
La cuesti6n es bien sencilla, dado 
que el valor ASCI del car6cter 0 co- 
rresponde precisamente a ese nOme- 
ro, asi pues, si a 0 le sumamos 48 ob- 
tenemos el car6cter '0'. 

0+ 48--ASC("0") 

2 + 48 = ASC("9") 
Una vez obtenido el n0mero alea- 
torio que nos proporciona el ordena- 
dor e impreso en pantalla, entramos 
en un bucle, el cual repite un n0me- 
ro de veces prefijado de antemano, 
dentro del cual se observan las teclas 
que se pulsan en ese momento. 
Cada vez que se pulse una de 
elias, se deber6 comparar con el n0- 
mero generado aleatoriamente, pa- 
ra comprobar si se ha acertado. 
Para ello se toma el c6digo ASCI 
de la tecla pulsada y se le resta el va- 
lor 48 por las razones citadas ante- 
riormente. A continuaci6n se compa- 
ra dicho valor con el n0mero gene- 
rado aleatoriamente. 
Veamos c6mo funciona la rutina 
del firmware que se utiliza par leer 

el car6cter que se pulsa desde el te- 
clado: 
OBSERVASI SE HA PULSADO UNA 
TECLA. #BB09 
Intenta tomar un car6cter del buf- 
fer de teclado. Dicha rutina no espe- 
ra en caso de que no encuentre nin- 
gOn car6cter disponible. 
Condiciones de entrada. 
No son necesarias. 
Condiciones de solida. 
Si se ha tornado un caracter: 
-- Carry verdadero. 
-- El acumulador contiene el c6- 
digo ASCI de dicho car6cter. 
Si no se ha encontrado ningOn ca- 
racter: 
-- Carry falso. 
-- Se corrompe el acumulador. 
En cualquier caso: 
-- Todos los flags se corrompen. 
-- Todos los registros excepto el 
acumulador se preservan. 
As/pues, dicha rutina se escribiria 
de la forma que se indica a continua- 
ci6n: 
CALL #BB09 ;Toma el valor AS- 
CI de la 
;tecla pulsada 
SUB 48 ;le restamos 48 
LD D,A ;Ponemos el resulta- 
do en el ;registro D 
LD 
A,(NUMER) ;Tomamos el nOme- 
ro aleatorio 
CP D ;Comparamoscon D 
JPZ, INCPUN ;Siesigualse 
incrementan 
;los puntos. De Io 
contrario 
;volvemos al bucle 
Asi pues, esta operaci6n se reali- 
zar6 un n0mero de veces predeter- 
minado, sial finalizar el bucle no se 
ha pulsado la tecla correspondiente 
al nOmero mostrado en pantalla, se 
Ilamar6 de nuevo a la rutina aleato- 
ria para que nos proporcione otto 

n6mero, y se volver6 a iniciar el ci- 
En caso de que se acierte el ngme- 
ro mostrado en pantalla, se enviar6 
el control del programa a la rutina 
encargada de incrementar los pun- 
tos. 
La funci6n de esta 61tima, ser6 la 
de actualizar los puntos obtenidos e 
imprimirlos en pantalla. Para Io pri- 
mero, se tomar6 el valor anterior de 
los puntos, y se le sumar6 10, una 
vez hecho esto, se almacenar6 de 
nuevo en la variable PUNT. 
LD HL,(PUNT) 
LD DE,10 
ADD HL, DE 
LD (PUNT),HL 
A continuaci6n se Ilamar6 a la ru- 
tina 'PINUM' que no describiremos 
ya que se ha estudiado en capitulos 
anteriores, la cual imprimir6 dicho 
valor en pantalla. 
Por Oltimo se producir6 un salto 
absoluto a la rutina principal del pro- 
grama 'GAME', la cual reinicializa- 
r6 el proceso descrito anteriormen- 
're. 

Diagrama de flujo 
del programa 

Veamos por 61timo y para una me- 
jor comprensi6n del programa des- 
crito, su diagrama de flujo. 
INICIALIZACION 
no se ha acertado el n0mero 
BUCLE PRINCIPAL 
se ha ha acertado el n0mero 
INCREMENTA 
PUNTUACION 
Por 01timo, s61o resta decir que 
cuando nos pongamos a realizar 
cualquier tipo de programa, y sobre 
todo si deseamos trabajar en lengua- 
e m6quina, deberemos tener las 
ideas muy claras, para ello o mejor 
es ir apuntando en un papel todo 
aquello que se desea que el progra- 
ma realice, y una vez hecho esto con- 
feccionar la estructura del progra- 
ma, para finalmente colocarnos de- 
lante del ordenador y escribirlo, ya 
sea en Basic o c6digo m6quina. 
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LISTADO DESENSAMBLADO 

Hsoft OEh3.1 Assembler. Page I. A887 lIEgg3 8gg 
AgBA 3C 
Pass I errors: 88 AgGB CO52 82g 
ABBD 3gFB 838 
Aggg lg 0RG #Aggg AgGF CDADAg 848 
28 A892 ll&488 GSg 
38 AS95 3C 868 
A888 AF 48 X0R A A896 ED52 878 
Aggl CDgESC 58 CALL #gCgE AS98 38F8 888 
68 A89A CDAOAg 898 
A884 218888 78 LD HL,8 AggD lISA88 9gg 
Age7 22ESAg gg LD (PUNT),HL AgAg 3C 918 
98 AgA; ED52 928 
AggA 3E82 188 LD A,2 AgA3 38F8 93g 
ABBC CD9888 I18 CALL #8898 AgA5 CDADA8 948 
128 AgAS 85 958 
AggF 211785 138 LD HLj#8517 AgA9 CDADAg 968 
AS;2 CD75BB 148 CALL #8875 AgAC C9 978 
A815 21EBA8 15g LD HL,TXTI AgAD CDSABB 988 
Agl8 CDBGAg 168 CALL PRINT AgBg 3E2F 998 
AglB CD75A8 178 CALL PINLI AgB2 2881 lgg8 
188 A884 23 IgIg 
AgIE 3E81 I8 LD AI AgB5 19 Ig2g 
Ag2g CD848B 288 CALL #8884 AgB6 23 1838 
218 AgO7 C9 Ig4g 
A823 218787 228 L0 HL.#g787 1858 
A825 118S88 238 LD DE,#BBgB 1868 
AO29 CD66SB 248 CALL #8866 1878 
Ag2c 3E83 268 LD A,3 AgB8 7E I898 
A82E CD968B 278 CALL #BS96 ABB9 FEFF 1188 
288 AgBB CG 1118 
A831 3E81 298 LD AI AgBC CD5BS 1128 
A833 CD9888 389 CALL #8898 AggF 23 1138 
318 AgCg IgF6 1148 
A835 CDSCBB 328 CALL #BBC 
339 
A839 CD55A0 348 GAME: CALL RANDOM 
A83C 818888 358 LD 8C3888 
Ag3F C5 30 8UCLE: PUSH 8C 
A@48 coggB8 370 CALL #8889 
A843 0638 388 SUB 48 
AS45 57 398 LD D.A H=soft GENA3.1 Assembler. Page 
A845 AEAA8 488 LD A(NUMER) 
A849 8A 418 CP D 
1158 
A84A CAC2A8 428 JP Z:INCPUN 1168 
AO4D CI 438 POP 8C 
1170 
Ag4E 88 44g OEC BC I188 
AB4F 78 458 LD A8 AOC2 Cl ;198 
A858 BI 468 OR C A8C3 2AEBA8 1288 
AS51 20EC 470 JR NZ,BUCLE AgC5 118Agg 121g 
AS53 C339A8 488 JP GAME 
ARC9 19 1228 
498 
AgCA 22ESA8 1238 

588 ; 
518 ;CALCULA NUMER0 ALEATGRI0 
528  
AS55 CDgDBD 538 RANDOM: CALL #gDgO 
A859 7D 548 LD A,L 
A85A AC 558 X0R H 
A858 Egg7 55g AND 7 

Hsoft GENA3.; Assembler. Page 

A85D 3C 578 INC A 
A85E 32EAAg 588 L0 (NLIHER):A 
A861 3Eel 598 LD A,I 
AgO3 CD848B 688 CALL #BBB4 
A855 2103g3 618 LD HL,#g383 
A869 CD7588 628 CALL #8B75 
ABGC 3AEAA8 638 LD A(NLINER) 
AgSF C538 548 ADD A,48 
A871 CDSAB8 558 CALL 
A874 C9 558 RET 
670 
588 
698 ;PINTA NUMEROS 
AS75 2AE8 718 PINLIi: LD HL(PUNT) 
A878 37 728 SCF 
AS79 111827 738 LD DE,;gBgg 
A87C 23 748 INC HL 
AB7D 3E2F 758 LO A47 
A87F 3C 768 OIL: INC A 
ABBg ED52 77B SBC HL,DE 
A882 3eFB 788 JR NC[L 
ABe4 COA8 790 LL IMPR1 

LD OE,1888 
filL: INC A 
SBC HL,DE 
JR NC,MIL 
CALL INPRI 
LD DEIBg 
CIEN: INC A 
SgC HLDE 
JR NC,CIEN 
CALL INPRI 
LD DEI8 
DIEZ: INC A 
SBC HLDE 
JR NCDIEZ 
CALL IHPR! 
ADD AL 
CALL IHPRI 
RET 
IMPRI: CALL #B85A 
LD A49 
JR NZPAS 
INC HL 
PA$: ADD HLDE 
INC HL 
RET 

AgCD CDF3Ag 124g 
AgOg AF 1250 
AgD; CDB4BB 
AgD4 3E82 1278 
A@D6 CDggB8 1280 
AgD9 21178C 1298 
ABDC CD75B8 1380 
AgoF CDF3A8 1318 
ABE2 CD75A@ 1328 
AgE5 C339A8 1339 
AgES 1348 
AgEA ;350 
AgES 58554E54 1368 
AgF2 FF 1378 
ABF3 3E81 1388 
AgF5 CDADBC 1399 
AgF8 E&@7 
A@FA 28F7 1418 
AgFC 2183AI 1428 
AgFP CDAABC 1438 
A]g2 C9 1448 
1458 
A188 n0 
AI89 07 1490 
Alga gage 
BUCLE A83F 
DIE2 A@A@ 
GAME A839 
RUID0 AIg8 

; 
;PINTA TEXT0 
; 
PRINT: LD 

A,KHL) 
CP 255 
RET Z 
CALL #BB5A 
INC HL 
JR PRINT 

; 
; INCREMENTA PUNTUAC! ON 
INCPUN: POP 8C 
LD HL(pIJNT) 
LD DE,I@ 
ADD HLDE 
LD (PUNT),HL 
CALL MUSIC 
X0R A 
CALL W8884 
LD A,2 
CALL #8898 
LD HL,#@C;7 
CALL #8875 
CALL MUSIC 
CALL PINtJH 
JP GAME 
PUNT DEFS 2 
NUNER: DEFS I 
TXTI= DEFN PUNTOS: 
DEF8 255 
MUSIC: LD 
CALL 
AND 7 
JR Z,MUSIC 
LD HLDAT08 
CALL 
RET 
DATOS: DEF8 
NOTA: DEFW 288 
RUID0: DEFB @ 
UOLLM= DEF8 7 
DURAC: OEFW 

CIEN A895 DATOS AIO3 
DNIL AgTF DURAC Alga 
;NPRI AgAD INCPUN A@C2 
MUSIC AgF3 NOTA ;86 
PAS A085 PINUM A@75 
PUNT AOE8 RANDCPI AS55 
TXT; AOEB VOLUM AI@9 

Table u ed: 256 from 
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PROGRAMA 
BASIC 

In M08E g:PUNT g:PEN 2:LOCATE 5,23: 
PRINT "PUNTOS:";PUNT 
20 WINDOW #I,8,12,8I2:PAPER 
EN #I,I:CL$ #1 
38 A=INT(ND*8)*I 
4@ LOCATE #I,23:PRINT 
5@ FOR N I TO 
60 AS INKEY$ 
80 IF VAL(A$) A THEN GOT0 
98 NEXT 
Ig@ GOT0 36 
I18 PLIT-PUNT÷lg 
120 SOLIXID I208,10,15I 
138 PEN 2 
148 LOCATE 1223:PRINT PUNT 
150 GOTO 38 

PROGRA  A 
CARGADOR 

18 REN *PROGRAMA CARGADOR* 
20 FOR N=&AgB@ TO &AIgC 
3@ READ A:SUNA=SUMA+A 
4@ POKE NA 
5@ NEXT 
@ IF @UMA()&TODD THEN PRINT ERROR 
EN DATAS  
78 DATA 175205;4,188,33@8 
88 DATA 34,232,158=62,2,295,144 
98 DATA 187,3323,5,285|17187 
188 GATA 33,235,160285|84,168,285 
Ilg DATA I17,16862,1,285,188187 
;28 DATA 337,71711,iI,285 
138 DATA I8218723285|58187 
148 DATA 621,285,;44187,285,I88 
158 DATA 
168 DATA 197:28591872144887 
;78 DATA 
188 DATA 1931112817732236,195 
198 DATA 57|6828513,189,|85,172 
2gg DATA 
218 DATA 1,28518818733,33 
228 DATA 285,I17187,58234168198 
238 DATA 48:28590187,281,2,232 
248 DATA 1655,17,16,3935,62 
258 TA 47,623782,48251,25 
260 DATA 
278 TA 82,48251,25,17316,17 
288 TA Ig,68,237,82,4,251 
98 TA 
3gg DATA 237,82,8,251,25,17316 
31 TA 133,28517316281,259 
32 DATA 187,62,47,32,135,25 
338 DATA 35,28,126254255:2285 
34 TA 
358 DATA 232,1g171825,34 
368 DATA 
5 
378 DATA 18I8762,2285,144,187 
38 TA 33,23,12,285,117,187,285 
39 DATA 
480 DATA 
4@ DATA 84,783,58,255,&2,1 
420 DATA 205,173,188,239,7,49,247 
438 TA 33,161285,178,1882gI 
44 DATA 
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iOLE TORO... OLE! 

En el da de boy, Dios 

mediane, y si el tiempo 
acompaa, se lidiaran ""':- -  • - 
seis toros, seis, de la --I ° t '1I . 

prestigio.sa ganaderia de 
Dinamlc, pot un cartel 
repleto de los espadas 

m6s afamados del toreo. 
n una c61ida tar- 
de de agosto, de resplandeciente cie- 
Io y sol de justicia, los toreros se van 
a enfrentar a los morlacos de una de 
las divisas m6s famosas por su bra- 
vura, en uno de los <<¢osos> con 
m6s raigambre del pais. 
Con estos fabulosos ingredientes, 
es incontable el nOmero de aficiona- 
dos que se agolpa en los tendidos de 
la plaza para presenciar, Ilenos de 
emoci6n, la que ser6 probablemen- 
te una de las corridas m6s nombra- 
das de la temporada. 
Despu6s del vistoso pasello, Ileno 
de color y elegancia, el primer dies- 
tro se dirige hacia el palco presiden- 
cial para hater el brindis de su pri- 
mer toro. 
Posteriormente, con paso sereno y 
decidido, toma posici6n en la plaza 
donde va a esperar la salida de su 
enemigo con el pulso golpeando 
fuertemente sus sienes y la vista cla- 
vada en el port6n del toril. 

Segundos m6s tarde, sale la noble 
bestia en tromba a rendir cara su vi- 
da. Su color, negro zahino, asi co- 
mo su planta, son de gran belleza y 
arranca un murmullo de admiraci6n 
entre los espectadores. 
El torero despliega la capa y se di- 
rige a su encuentro, le cita, y el toro 
arremete con toda la agresividad 
que ha estado reteniendo en el toril. 
Demostrando su saber, el espada 
recibe al morlaco con un bien reali- 
zado pase de pecho. 
El pOblico ovaciona esta acci6n, 
demostrando la necesidad que tiene 
de vet una buena faena. 
Luego seguir6n unas ver6nicas, 
para ms tarde continuar con mano- 
letinas y molinetes, terminando con 
dos pases de rodillas. La plaza pa- 
rece que se viene abajo. 
El diestro se dirige hacia la barre- 
ra a recoger el estoque y se dispone 
a finalizar con la vida de su enemigo. 
Cuadrando a 6ste con gran traba- 
jo, se hecha el estoque a la cara y 
calculando, arremete con denodada 
furia y da una estocada que hiere 
mortalmente a su enemigo que cae 
entre ag6nicos estertores y bocana- 
das de sangre. 
Los aficionados no pueden conte- 
ner la emoci6n ante toda esta lecci6n 
de toreo y estallan en gritos de <<ito- 
rero, torero!)). 
Lo presidencia no puede por me- 
nos que conceder las dos orejas y el 
rabo ante este jObilo ambiental, re- 
conociendo al fin el valor de la fae- 
ha. 
Disponiendo de toda esta magia y 
colorido que se encuentra en la Ila- 
mada <<Fiesta>> por los entendidos, 
nos pusimos delante del ordenador 
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para ver un iuego realmente diferen- 
te y entretenido --nos cansamos un 
poco de marcianos y de aguerridos 
soldados que luchan solos contra to- 
do un ej6rcito--, y aunque realmen- 
te el juego es diferente, no est6 muy 
bien resuelto. 
Del nivel gr6fico se puede decir 
que es excelente, y que tiene justa- 
mente el colorido que podria tenet 
una corrida de toros. El grado de de- 
finici6n es tambi6n muy importante 
debldo a que Ole, toro est6 hecho 
en alta resoluci6n. La animaci6n es, 
casi podriamos decir, la misma rea- 
lidad. 
La mOsica, no podia ser de otra 
manera, est compuesta de los tipi- 
cos y espaolisimos pasodobles, que 
suenan agradablemente y agregan 



un poco m6s de salsa a Io que va 
sucediendo en pantalla. 
Y entonces, qu6 falla?. Pues falla 
el nivel de participaci6n que se deja 
al didiador>, o sea, a nosotros. Es 
un poco triste tener que conformar- 
se con apretar tan s61o el bot6n del 
joystick para realizar un pase o cual- 
quier otro lance taurino. Pero vamos 
aver paso a paso. 
Lo primero que tenemos que hacer 
es torear con capa. Y aqui es donde 
naci6 nuestra sorpresa al comprobar 
que Io Onico que teniamos que ha- 
cer era presionar un bot6n para ci- 
tar al toro, y volver a pulsar otra vez 
el bot6n cuando la bestia se encuen- 
tra a la distancia necesaria para ini- 
ciar el pase. Aqui se acaba nuestro 
cometido y empieza la evaluaci6n de 
la faena --que podremos ver en 

pantalla-- por parte del ordenador. 
La puntuaci6n que se otorga por 
cada pase figura a la izquierda de 
la pantalla, y a la derecha se puede 
ver la nota media, que deber6 ser su- 
perior a cinco para poder pasar de 
una suerte)> a otra. 
En el caso de que no pudi6ramos 
superar esta media o que en alguno 
de los lances nuestra puntuaci6n fue- 
ra 0,,, seriamos atropellados por el 
toro sin posible remisi6n. 
Nuestro siguiente cometido ser6 
{picar al toro. Para hacer esto, ten- 
dremos que repetir las mismas ope- 
raciones anteriores, o sea, hay que 
{{¢itar>) al toro y esperar a que se en- 
cuentre a la distancia apropiada en 
su embestida para apretar el bot6n 
cel picador ba ar6 la pica, asestan- 
o un buen puyazo a animal. Se- 
g0n Io acertado que haya sido nues- 
tro c61culo de la distancia, subira o 
no nuestra nota y por Io tanto nues- 
tra media. Despu6s de esto, nos en- 
frentaremos cara a cara con el toro, 
m6s si cabe, para intentar ponerle 
las banderillas. Y aunque la t6cnica 
es la misma que para las otras suer- 
tes, en 6sta, el calculo de la distan- 
cia apropiada es m6s comprometido 
y sobre todo cuando el toro debe 
embestir del lado izquierdo. 
La muleta es casi la repetici6n de 
Io hecho con la capa, aunque los pa- 
ses son m6s bonitos, bajo nuestro 
punto de vista. 
Si realizamos cada una de estas 
suertes con buen saber hacer y estar, 
podremos ver c6mo desde los tendi- 
dos, una marabunta de buenos y en- 
tendidos aficionados, las reciben en- 
tre aplausos y Ilenos de satisfacci6n. 

Bien Iogrado el movimiento del p0- 
blico en la plaza, que antes que se 
nos olvide, diremos que es la Maes- 
tranza de Sevilla. 
Para el final hemos dejado el mo- 
mento crucial. Despus de haber 
realizado una buena faena hay que 
terminarla, y como todo el mundo 
sabe, esto se hace matando al toro. 
Procedemos a cuadrar al animal y 
seguimos los pasos ya citados ante- 
riormente. Si terminamos bien la 
suerte y matamos a nuestro enemi- 
go, significa la gloria, si nos equivo- 
camos, puede significar la muerte. 
Todo Io anteriormente descrito Io 
deberemos realizar con los seis toros 
de la corrida, que por cierto tienen 
hombres de Io m6s curioso. 
Como ya hemos dicho en un prin- 
cipio, es una pena queen un juego 
dotado de la extraordinaria capaci- 
dad gr6fica y de movimiento que tie- 
ne iOle tora!, nos tengamos que li- 
mitar a set casi espectadores. 
Por otra parte, el muy especial y 
diferente tema tratado nos hate in- 
cluso sugerir la posibilidad de que 
por parte de Dinamic se hiciera una 
segunda versi6n donde nos sintira- 
mos m6s participes e integrados en 
la acci6n. Seria la culminaci6n de un 
juego que insistimos es uno de los 
mejores que hemos visto a nivel de 
grficos y animaci6n, como tambi6n 
es el tema ms original 01timamente 
tratado y 100 por 100 puramente es- 
paol. 
Palmas y pitos por iOle toro! 
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Por: Josg Maria DIAZ 

Logo es un lengua- 
je que p ede utilizarse satisfactoria- 
mente p:ra aplicaciones de inteligen- 
cia artificial, porque posee en su vo- 
cabulario las 6rdenes precisas para 
ello: me refiero a la manipulaci6n de 
listas. 
He pensado que no estarfa real 
aprender un poco m6s de programa- 
ci6n en Logo y, de paso, hacerlo es- 
tudiando una t6cnica de IA de capi- 
tal importancia: los reconocedores 
de modelos>>, en ingl6s pattern mat- 
ching>. 
No obstante, antes de entrar en 
materia, conviene aclarar un poco el 
significado, y la utilidad, de estas pa- 
labras cabalisticas. 
En inform6tica existe un axioma 
que generaciones de programado- 
res se han encargado de probar, y 
que podria enunciarse aproximada- 
mente ask un programa es m6s 
teligente>> en la medida que es capaz 
de tomar decisiones complejas y ac- 
tuar en consecuencia. 
Un ejemplo: imaginemos un pro- 
grama que dijera 
IF A=5 THEN PRINT A 

y otro, 
IF ES--MEDIODIA THEN AVISA-- 
PARA--COMER 
Obviamente, el segundo progra- 
ma es m6s <inteligenteb puesto que 
puede ejecutar una acci6n mucho 
m6s complei a que imprimir el valor 
de la variable A en la pantalla. 
Resulta tambi6n evidente que am- 
bos programas tienen un cierto ¢o- 
no¢imiento; el primero sabe que 
A> es igual a 5, y el segundo entien- 
de de alguna forma cuando es me- 
diodia. 
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Como ya se ha visto en otros articulos de nuestra revista, el 
Logo permite una manipulaci6n de las palabras a muy alto 
nivel, normalmente mediante listas. Vamos a vet una 
aplicaci6n de uso general que emplea todas estas facilidades. 

Todo esto nos Ileva, de nuevo, a 
conclusiones claras: los dos progra- 
mas poseen una represental:Jln del 
conocimiento que les permite enten- 
der siA vale 5 o no y si es medio- 
dia; y, Io m6s importante para este 
articulo, ambos pueden reconocer 
cu6ndo las condiciones que siguen al 
IF son ciertas, para asi actuar. 
Ambos programas usan RECO- 
NOCEDORES DE MODELOS de di- 
ferente grado de sofisticaci6n, es de- 
cir, son capaces de averiguar cu6n- 
do dos cosas son iguales. 
Nosotros, juntos, vamos a imple- 
mentar en Logo un reconocedor de 
modelos de uso completamente ge- 
neral, usando listas. 
Lo primero que hay que pregun- 
tarse es qu6 entendemos por dgua- 
les, aplicado a dos listas de cosas. 
La soluci6n m6s evidente es la si- 
guiente: 
1) TO IGUALES :MOD :INP 
2) IF (AND (:MOD=[])(:INP=[])) 
[OP I=I] 
3) IF (OR (:MOD=[])(:INP=[])) 
[on 1=0] 
4) IF ((FIRST :MOD) = (FIRST 
:INP)) 
5) lOP IGUAL (BF :MOD)(BF 
END 
Definimos el procedimiento IGUA- 
LES con dos argumentos :MOD (por 
MODELO) e INP (porlNPUT). El se- 
undo Io introducimos nosotros, y el 
mstrad tiene que averiguar si es o 
no dguah al primero. Como podris 
observar, hemos usado recursividad, 
por Io que para entender todo el 
procedimiento, vamos a fijarnos pri- 
mero en las dos primeras lineas. 
IF (AND (:MOD ]} (:1 [])) 
1==[1] NP -- 
lOP 

Esta linea dice: si se Ilega a una si- 
tuaci6n en la que las dos listas A LA 
VEZ (AND) est6n vacias, necesaria- 
mente son iguales, puesto que las 
comparamos elemento a elemento. 
En ese caso, da el resultado de ver- 
dad ([OP 1= 1]), o TRUE, y finaliza 
la ejecuci6n. 
Compru6bese tecleando: 
IGUALES [A B] [A B] 
La segunda Iinea 
IF (OR (:MOD = I=0[i)(:]INP = [])) : 
[o 
viene a sealar: 
Si ocurre que una de las listas est6 
vac/a pero la otra no (OR), entonces 
son distintas, porque las compara- 
mos elemento a elemento. En ese ca- 
so, da el resultado FALSE ([OP 1 =0] 
y finaliza la ejecuci6n. 
Pru6bese con: 
IGUALES [A] [B C] 
Bien. Ya hemos previsto las dos 
formas posibles en las que el proce- 
dimiento puede terminar. $61o nos 
queda el pequeo cletalle de de- 
cirle a la mquina qu6 pasa si los dos 
primeros miembros de ambas listas, 
MOD e INP son iguales. 
IF ((FIRST :MOD) = (FIRST :INP)) 
[OP IGUALES BF:MOD BF :INP] 
Si el procedimiento Ilega a esta linea, 
quiere decir que ninguna de las lis- 
tas est6 vacia, y si la condici6n se 
cumple, indica que los dos primeros 
elementos de la lista SON IGUALES. 
AI estar seguros de que ninguna de 
las dos listas est6 vacia, tenemos que 
seguir investigando el resto delos 
elementos. 
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El m6todo m6s adecuado es usar 
recursividad, porque hay que repe- 
fir exactamente el mismo proceso, 
pero con TODOS LOS ELEMENTOS 
RESTANTES DE AMBAS LISTAS; por 
ello, pasamos a IGUALES como aro 
gumentos BF :MOD y BF :INP, o sea, 
ambas listas pero SIN EL PRIMER 
ELEMENTO (ButFirst, sin primero), 
que ya hemos comparado. La repe- 
tici6n de este proceso detectar r- 
pidamente si dos listas cualesquiera 
son o no iguales. 
Para aclarar conceptos, vamos a 
seguir paso a paso el procedimiento 
IGUALES para las listas [A B] y [A B]. 
1) TO IGUALES [A B] [A B] 
Linea 2): ni :MOD ni :INP est6n va- 
cias, por Io que la condici6n no se 
cumple y se pasa a la linea 3). 
Linea 3): por la misma raz6n, la 
conclici6n no se cumple. Pasamos a 
la Ifnea 4). 
Linea 4): FIRST :MOD vale A, y 
FIRST :INP vale tambi6n A. La con- 
dici6n se cumple y se eiecuta 5), que 
quedaria: 
[OP IGUALES [B] [B]] 
susfituyendo los argumentos por los 
valores de los listas. 
Despu6s de la segunda vuelta, el 
aspecto de 5) seria: 
[OP IGUALES [] []] 
porque el Oltimo elemento es [B], y 
BF [B] es la lista vacia. No hay ms 
elemenfos. 
En la tercera vuelta, la condici6n 
de la linea 2) se cumpliria, porque 
:MODe :INP estcn vacias simult- 
neamenfe, por Io que el procedi- 
miento se cletendria clando el resul- 
tado de TRUE, cierto. Las dos listas 
son iguales. 
Imaginemos ahora que los dos lis- 
tas de entrada fueran [A B] y [A B 
C]. Todo seria exactamente igual que 
en el casa anterior, salvo que al fi- 
nal de la segunda vuelta, la linea 5) 
es: 
lOP IGUALES [] [C]] 
por las razones que hemos clicho an- 
tes. Asi que, en la tercera vuelta, la 
condici6n cle la linea 2) seria falsa, 
los dos listas NO SON IGUALES A 
LA VEZ, pero la de la linea 3) seria 
cierta: una lista (:MOD) est6 vacia, 
PERO LA OTRA NO (:INP), por Io 
que son distintas y el procedimiento 
se detendria dando el resultado FAD 
SO. Las dos listas son distintas. 
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Bueno, resulta que hasta ahora no 
hemos conseguido mucho. $61o po- 
demos detectar que, por ejemplo, 
Yo tengo un Amstracl] es igual a 
Yo tengo un Amstrad]. 
En Basic, seria mucho m6s simple. 
Bastaria decir algo asi como: 
IF AS=B$ THEN PRINT <<IGUAL£S 
Ahora bien,/,qu pasa si empeza- 
mos a complicar nuestro modelo? 
Irnaginemos que queremos que es- 
tas dos listas sean iguales: 
[YO TENGO UNA--COSA UN 
AMSTRAD] 
En donde "UNA--COSA" signifi- 
ca precisamente eso: cualquier lista 
ue responda a ese modelo encaja. 
s decir, seg0n muestro nuevo mo- 
delo, los listas: 
[YO TENGO UN AMSTRAD] 
[YO POSEO UN ,4MSTRAD] 
son iguales. Sin embargo, la lista: 
[YO TENGO A VECES UN 
AMSTRAD] 
no es igual, porque no responde a 
la estructura del modelo; recordemos 
que <<UNA--COSA equivale A UN 
SOLO ELEMENTO DE LA LISTA, sea 
el que sea, pero s61o uno. 
Tenemos que buscar un signo pa- 
ra UNA--COSA que sea muy difi- 
cil que aparezca en la lista :INP; una 
buena elecci6n es la palabra ingle- 
sa ANYb que no debe aparecer en 
un texto espaol y significa Io mismo. 
Por tanto, nuestra Ilamada al pro- 
cedimiento IGUALES para aprove- 
char esta nueva sofisticaci6n seria, 
por ejemplo: 
IGUALES [YO ANY UN AMSTRAD] 
[YO AMO UN ,4MSTRAD] 
y el ordenador dir6 que son iguales. 
La implementaci6n del nuevo reco- 
nocedor de modelos, en Basic seria 
bastante complicada. En Logo bas- 
ta con aadir una Ilamada recursiva 
m6s, la linea 7): 
7) IF (FIRST:MOD) = <ANY [OP 
IGUALES BF :MOD BF :INP] 
Obs6rvese Io siguiente: partimos 
de la base de que ANY encaia con 
cualquier elemenfo de la lista :INP 
que se encuenfre en la misma posi- 
ci6n. Por fanto, basra con volver a 
Ilamar a IGUALES, pero sin el ele- 
mento ANY ni el de la otra lista, por- 
que son iguales por definici6n. 
;,Y qu pasa con todas las conside- 
raciones que hicimos anteriormente, 
antes de introducir la nueva Ifnea? 
Pues que siguen siendo vclidas. El 
procedimiento detectar6 igualdad o 
desigualdad en todas las situaciones 
COHO AMSTRAD 
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previstas por las 6 primeras Ifneas del 
procedimiento, pero, ADEMAS, ten- 
dra en cuenta Io nuevo que le hemos 
dicho. Es la gran ventaia de lengua- 
jes como el Logo: una vez definida 
una 16gica, normalmente no hay que 
modificarla si los nuevas situaciones 
son consistentes con ella. 
Vamos a dar un paso m6s, e intro- 
ducir uno nueva sofisticaci6n en 
nuestro reconocedor de modelos. 
Antes dijimos que las listas: 

[YO UNA--COSA UN AMSTRAD] 
[YO TENGO A VECES UN 
AMSTRAD1. 

• " • CEDIMIENTe 
PRINCIPAL 

o principal 
(local "11 "12) 
.r [> PULSA 'ENTER' PARA 
ERMINAR] 
abel "loop 
• r [DIME LA PRIMERA FRASE] 
ype [>] 
make " I1 rl 
pr [DIME LA SEGUNDA FRA$ 
type [ > ] 
make "12 rl 
if (or (emptyp :11) (emptyp :12) 
[op "adi6s] 
if (iguales :11:12) [pr "iguales] 
[pr "distintos] 
pr E ROZO SELECCIONADO ES] 
t emptyp.'xx [pr  GUNO] 
[pr .'xx] 
,,.ke"xx  
• t.J'l... 
en, 

no son iguales en el estado actual del 
procedimiento IGUALES, pero po- 
dria interesar que si Io fueran para 
determinados programas, de forma 
que: 
[YO MUCHAS--COSAS UN 
AMSTRADJ 
[YO TENGO A VECES UN 
AMSTRAD] 
[YO ENTIENDO PERFECTAMENTE 
UN AMSTRAD] 
si se detectarian como iguales, por- 
que tendrian la misma estructura: la 
alabra ¥0, un mont6n de pala- 
ras de Iongitud indefinida y, por OI- 



timo, las palabras UN AMSTRAD)). 
Elegimos un mtodo id6ntico al ca- 
so UNA--COSA), y esta vez la pa- 
labra inglesa elegida, por las mismas 
razones, es MANY. 
Una Ilamada del tipo: 
IGUALES [YO MANY UN 
AMSTRAD] 
[YO TENGO A VECES UN 
AMSTRAD] 
debiera de dar iguales, porque en el 
concepto eMUCHA$--COSA$ estd 
incluido eWde ¢UNA--CO$,lb: /a es- 
tructura encaja tambi6n. 
8)IF (FIRST :MOD) = MANY [OP 
IGUALES2 :M©D :INP] 
Para simplificar las cosas, hemos 
creado un nuevo procedimiento que 
va a manejar la aparici6n de la pa- 
labra MANY en el modelo, de la 
forma siguiente: 
A) TO IGUALES2 :MOD :INP 
B) IF (IGUALES :MOD (SF:INP)) 
C) [OP 1=1] lOP IGUALES (BF 
:MOD) (BF :INP)] 
D) END 
Primera sorpresa: IGUALES2 lla- 
ma a IGUALES, que a su vez PUE- 
DE LLAMAR a IGUALES2 y asisuce- 
sivamenfe. Bueno, esto s61o es un po- 
co lioso para los personas, no para 
el ordenador, yen cuanto veamos el 
razonamiento que se oculfa defr6s, 
para nosofros tampoco. 
IGUALES2 debe maneiar dos ca- 
SOS: 
1) Cuando MANY equivalga a 
(MUCHAS--COSASh 
2) Cuando MANY equivalga a 
<<UNA--COSA. 
El primer objetivo se cumple en la 
propia condici6n del IF en B). Esta- 
mos comprobando si IGUALES da 
cierto para un solo elementa de 
:MOD (MANY) y EL RESTO DE LA 
LISTA :INP. AI Ilamar a IGUALES, 
implicitamente estamos haciendo que 
se verifiquen todos los supuestos an- 
teriares, incluido el casa ANY). AI 
cumplirse esta, IGUALES2 DA CO- 
MO RESULTADO CIFRTO, E IGUA- 
LES TAMBIEN, por Io que son igua- 
les. 
Si el resultado es falsa, antes de ti- 
rar la toalla hay que comprobar si se 
Io hemos puesto dificil al ordenador 
con dos listas del tipo: 
[A MANY] [A B] 
por ejemplo, y as[ se ejecuta la se- 
gunda porte de C), que compara 
ambas listas elemento a elemento. 
Fijaos c6mo hemos introducido, de 
un plumazo, una increible compleji- 
dad en nuestro reconocedor de mo- 
delos, que ahara es capaz de mane- 
jar todas los ilimitadas combinacio- 

nes posibles de ANY y MANY en 
cualquier orden, untas a aisladas. Y 
esto con unas 5 lineas de programa 
m6s, que se limitan a Ilamar recursi- 
vamente a procedimientos que ya 
existen. Esta, en Basic, simplemente 
es imposible. 
Seria el momento de hacer prue- 
has con el reconocedor, para asegu- 
rarse de que no es magia negra; y, 
para los incr6dulos, intentar repro- 
ducirlo en Basic. 
En mi opini6n, s61o nos quedan 
dos casas por hacer, muy relaciona- 
das entre si: la primera, encontrar 
una utilidad pr6ctica, de entre las mi- 
les que existen, al reconocedor; y, la 
segunda, la parte de la lista :INP que 
encaje con el modelo (la lista :MOD), 
almacenarla en alg0n sitio para po- 
derla manipular y tomar decisiones 
en funci6n de ella. 
Estos dos abjetivos, que el lector in- 
teresado podria intentar conseguir 
por si mismo, seran el material de un 
pr6ximo articulo acerca de los reco- 
nacedores de modelos y su utilidad 
prectica. 

NOTA: En el texto, por razones de 
claridad, los procedimientos y sen- 
tencias LOGO se han tecleado con 
ciertas libertades. Para comprobar- 
los y ver que funcionan, es impres- 
cindible teclearlos EXACTAMENTE 
IGUAL QUE APARECEN EN LOS 
LISTADOS. 
El pracedimiento PRINCIPAL se exo 
plicar6 con detalle en el siguiente ar- 
ticulo. De momento, s61o sirve para 
manejar a IGUALES. 
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L FUTURO DE AMSTRAD 
N T' DOS UNIDOS 

Amstrad est6 intentando, y consiguiendo, introducirse en el gigantesco y jugoso mercado 
norteamericano, usando como punta de lanza el PCWS.2,56. Hasta ahora, Estados Unidos ha sido 
la ((bestia negra)) del market.ng para muchas compafi.as europeas, como Sinclair Research y 
Acorn Computers, por no hablar del triste caso del MSX japons. 

SA es un mercado 
difil y • que suceda en 61 reverti- 
-':-'-Ipr- igi-, -I :',. -..- 
todas las marcos que infenfen fomor- 
 II I • f') 1111 illo I" II a 
,.mstr_ad en Esados Unid 
mericano el que les est6 hablando a 
sus compatriotas del relativamente 
desconocido PCW8256, y del mun- 
do de Amstrad en general. 

El tiempo est6 maduro para una 
inversi6n del procesador de texfos de 
Amstrad Consumer Electronics PIc en 
Estados Unidos, el cual ha Ilegado a 
convertirse en un sustituto m6s que 
razonable para la m6quina de escri- 
bir. La firma de Londres ya es nOme- 
ro uno en Europa, y ha comenzado 
a tomarle el pulso al mercado ame- 
ricano en Nueva York y Los Ange- 
les: la cuesti6n es si repetir6 aqui su 
xito europeo. 
Amstrad ha trabajado de firme 
para salvar su principal escollo en la 
gama baja del mercado, tanto en 
Europa como en USA: compr6 Sin- 
clair Research por unos 25 millones 

de d61ares. Esta acci6n ha consolida- 
do su posici6n en el campo de la dn- 
form6tica caserm, recibiendo apro- 
ximadamente un 50 pot 100 del mer- 
cado en t6rminos de valor bruto, asi 
como un indiscutible primer puesto 
en toda Europa. Amstrad, ahora, 
tiene una buena oportunidad de 
marketing en USA, e intenta aprove- 
charla al mximo con una completa 
gama de productos. 
El PCW8256 tiene muchas cosas a 
su favor: una de elias, desde el pun- 
to de vista de su comercializaci6n, es 
que se ha hecho cargo de la misma 
Sears World Trade Inc., el brazo 
armado de Sears, Roebruck & Co., 
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el mayor distribuidor al ((retail)) de 
Estados Unidos. 
ka otra, no menos importante, es 
su precio en relaci6n con sus presta- 
ciones: simplernente no tiene rival. 
Par si esto fuera poco, los productos 
que podrian hacerle competencia, 
creados par Magnavox y Smith- 
Corona, no pueden emplearse coma 
ordenadores de prop6sito general. 
No resulta extrao queen Europa 
sea un ((best-seller)) en el mundo del 
pequeo negocio y el del hogar. 
Sears ha recibido ya grandes sig- 
has de inter6s respecto al PCW par 
parte de mucha gente; segOn Otto 
Georgi, <general manager) de la 
compaia en Chicago, hay una lar- 
ga lista <de espera), entre la que se 
podria citar a ((Burdines (Miami)) y 
Lechmere Sales), una cadena d6 
productos electr6nicos de consumo 
de Boston. 
Todas las operaciones de Amstrad 
en USA sern comandadas par 
Sears; segOn Jim L. Rice, director del 
grupo de operaciones de Amstrad, 
(¢queremos entrar en Estados Unidas 
par la vfa mds rdpida y segura>>. 
La gente de Sears es optimista res- 
pecto al PCW y a Amstrad en gene- 

ral, y, bas6ndose en sus pruebas de 
mercado, que realizan con todo Io 
que comercializan, esperan que se 
confirme el 6xito definitivamente an- 
tes de Io previsto. 
En Europa, el PCW se vende a un 
ritmo de unas 40.000 unidades par 
rues en Inglaterra, Francia, Alema- 
nia y Espaa. Kim Duncan, director 
de ((Sears World Trade Electronics 
Group)), espera alcanzar el mismo 
ritmo para finales de186. De momen- 
to, estn previstas ] 00.000 unidades. 
En Io que a Amstrad respecta, es- 
to no es mcs que el comienzo. Segn 
Rice, ¢(si esto funciona, el mercado 
europeo se convertird en alga insig- 
nificante; (ya saben, el habitual op- 
timismo norteamericano), no obstan- 
re, hay que recordar los problemas 
de otras marcas coma Sinclair Re- 
search en experiencias similares. 
Amstrad no tiene intenci6n de co- 
mercializar Onicamente su procesa- 
dor de texto (se refiere al PCW), si- 
no que tambi6n vender6 su gama 
completa de productos: cadenas mu- 
sicales, lectores de disco Iciser, etc., 
a finales de este ao. 
No cabe duda de que toda esta 
politica es el resultado de la agresi- 
vidad comercial de Alan Sugar (par 
cierto, Amstrad es la contracci6n de 
Alan Michael Sugar TRADing), que 
ha construido su compafiia sabre las 
bases del consumo masivo de pro- 
ductos comprobados, de est6ndares, 
a un precio muy bajo, a su vez co- 
ma resultado de unas durisimas ne- 
gociaciones, ya legendarias, con los 
proveedores del Este Asi6tico. 
En el segundo semestre de 1985, 
Sugar triplic6 los beneficios de Ams- 
trad hasta alcanzar la cifra de 70 
millones de d61ares --no estc mal pa- 
ra un hombre que empez6 vendien- 
do antenas de cache. 
Despu6s, se traslad6 al mundo de 
los aparatos st6reo, y consigui6 re- 
bajar castes haci6ndolos Io m6s com- 
pacto posible. Luego Ilegaron acce- 
sorios de TV y cassettes port6tiles, 
con el mismo concepto y los mismo 
baios castes. 
Su compra de Sinclair fue una vic- 
toria en la amarga batalla par el do- 
minio de la gama baja de ordenado- 
res en Inglaterra. 
Todos los observadores coinciden 
en que Sugar gan6 porque demos- 
tr6 concluyentemente su superiori- 
dad en los terrenos de marketing y 
de control de calidad sabre Sir Clive 
Sinclair. 
Tambi6n dicen que otro importan- 
te factor estriba en el hecho de que 
Amstrad no padece la fiebre innova- 

dora e investiga.dora de Sinclair, que 
cay6 par asumr un excesivo riesgo 
(recuerden el C5, aquel vehfcula 
el6ctrico que, tal vez par desgracia, 
fracas6 estrepitosamente). 
La compra de Sinclair par Amso 
tra se debe a la fuerza del hombre 
de los creadores del Spectrum: les 
cost6 7,7 millones de d61ares, m6s 
otros 17 par los stocks, trabajo de in- 
vestigaci6n en proceso y el derecho 
a comercializar todos sus productos. 
Algunos sostienen que esta opera- 
ci6n ha sido, para mstrad, la gan- 
ga del siglo, porque, en su dia, Sin- 
clair Research se valor6 en 210 mi- 
Ilones de d61ares. 
Rice (de nuevo), dice: ¢¢hemos com- 
prado porque creemos que es una 
buena oportunidad para explatar el 
nombre Sinclair en el mundo de los 
juegos de ardenador, as coma en el 
mercado casero de entretenimiento 
en general; aquF Sinclair posee, des- 
de hace aos, un poderoso nombre 
en toda el mundane. 
En el m6s puro estilo mercantilista, 
aBadi6: mosotros no hacemos cosas 
a menos que estemos seguros de que 
hay dinero par media en elias, coma 
es el caso de Sinclair, debido a la in- 
mensa cantidad de software que 
existe, y seguir existiendo para es- 
tas mcquinas>>. 
Amstrad planea el lanzamiento de 
nuevos productos, ba o el nombre de 
Sinc air, inc uyendo un ordenador y 
calculadoras. 
Tambi6n puede comercializar un 
ordenador de Sinclair Ilamado ((Pan- 
dgrm), si la labor de investigaci6n 
culmina satisfactoriamente; si no, tie- 
ne el derecho de rehusar a su lanza- 
miento. 
Pandora usa la misma tecnologia 
que la TV port6til de Sir Clive, posee 
un display de 24 par 80, un teclado 
profesional y software en ROM pa- 
ra proceso de textos y otras cosas. 
Su sistema operativo es el CP/M, y 
existen perif6ricos coma impresoras 
y unidades de disco para 61. El de- 
sarrollo de esta m6quina tiene lugar 
en el cuartel general de Sinclair Re- 
search, en Cambridge. Pandora se 
espera que se vender6 (recuerden, 
en Estados Unidas) a unos 770 d6- 
lares; la idea primitiva profetizaba su 
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aparici6n para finales de este ao, 
pero los problemas financieros de la 
compaia brit6nica (de Sinclair) pro- 
bablemente la retrasen. 
Sugar est intentando conseguir 
nuevos contratos para Sinclair, pero 
dice que el principal problema es el 
pobre control de calidad de los pro- 
ductos de Sir Clive, cosa que estc en 
vias de remediarse estableciendo 
una criba de calidad mucho ms 
estricta. El otro problema, los pre- 
cios, se debe a que los chips vienen 
de Jap6n, y est6n gravados con un 
impuesto del 18 por 100. Cuando, 
seg0n los deseos de Amstrad, se en- 
samblen los componentes en el 
jano Este, se bajar6 hasta un 4,9 
por 100. 
Alan Sugar y Clive Sinclair siguen 
caminos muy diferentes, que de al- 
guna forma reflejan sus distintas per- 
sonalidades. 
Sugar va a seguir vendiendo cosas 
en masa, hechas en Corea, a muy 
bajos precios; sus 01timas ofertas in- 
cluyen el Amstrad PC y un sistema 
musical st6reo con disco 16ser a 460 
d61ares. 
Mientras, Sinclair va a concentrar 
sus energias en la investigaci6n de 
nuevos y revolucionarios productos, 
que Amstrad se encargar6 de con- 
vertir en comercialmente viables. De 
la colaboraci6n rational de estos dos 
hombres, cualquier cosa buena pue- 
de salir. 
Bueno, despus de esto, tal vez 
nuestros lectores se hagan una idea 
de c6mo estc el tema Amstrad en 
USA, de c6mo Io ven los americanos 
y de la importancia que para ellos 
puede tener. 
Creemos que se trata de algo su- 
mamente interesante, porque confir- 
ma que Amstrad, y Sinclair, est6n 
Ilevando a cabo una penetraci6n 
irreversible en el mercado inform6- 
rico m6s importante del mundo, Io 
cual no puede por menos que inspi- 
rar seguridad y confianza en la con- 
tinuidad, renovaci6n y crecimiento 
de ambas marcas a las decenas de 
miles de usuarios en todo el plane- 
ta, empezando, pot supuesto, por 
los espafioles. 
Un Amstrad, hoy por hoy, es la 
garantia m6s fuerte de calidad y 
prestaciones a muy baio precio que 
cualquier persona puede tener en su 
hogar o su negocio, en Europa y en 
Am6rica. 
.OK...? 
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Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus p6gi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de util.idad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Vendo monitor color Amstrad 
CTM 640 pot 40.000 pts. Tel. 
242 04 29. Llamar de 9 a 12. 
Preguntar por Angel. (Barcelona). 
OO • • OO • • O O O O O O O 
Vendo Amstrad 464 con monitor 
a color y 25.000 pts. en 
programas. Todo pot 75.000 pts. 
Jos6 L. Rojo Matarranz. C/ 
T6rtola, 9, izq. 47012 (Valladolid). 
Tel. (983) 29 41 04 de 2 a 5 de la 
tarde. 

Se ha creado en Valencia un nuevo club de usuarios Amstrad. In- 
tercambio de ideas, programas, bibliografia en general. Prometemos con- 
testar. Para entrar en contacto escribir a Amstrad Club de Programado- 
res Valencianos a alguna de estas dos direcciones: Juan Elias Luna Mi- 
116n. Cami-Nou, 61, Pta. 5. Benetuser (Valencia). Tel. (96) 375 55 52. 
Jos6 Luis Ortiz C6rdenas. Dels Fors, 26, 4. °. Alfafar (Valencia). Tel. 
375 41 43. 

oeooeoeoooeeooo 

Vendo ZX Spectrum de 48 K., 
impresora ZX printer con papel 
interface serie RS 232, interface 
joystick, microdrive con cartucho y 
varias cintas con juegos y 
utilidades. Se incluyen cables, 
accesorios y manuales completos. 
Todo est6 completamente nuevo y 
se entrega embalado en sus cajas 
originales, por solamente 25.000 
pts. iURGE! 
Interesados Ilamar al (988) 
74 41 38 y preguntar por Dani. 

• • • • • • • • O O O O O O O 

Oesearia establecer contacto 
con usuarios de Amstrad para el 
intercambio de programas de 
juegos y utilidades, iEnviad lista!, 
contestar a todos. Jos6 Antonio 
Aranda. C! Carrilet, 31, 2. ° A. 
Palafugrell (Gerona). Tel. (972) 
30 18 88. Llamar de 15 h. a 18 h. 
ode20 h. a 22 h. 

OOOOOOOOOOOOOOO 

Intercambio programas para el 
Amstrad CPC-464. Interesados 
escribir a C6ndido Alonso. C/ 
Ignacio Iglesias, 63, 4-J. 
Vilafranca del Pened6s 
(Barcelona). 

• • • • • • • • • O eO • • O 

Desearia contactar con usuarios 
de Amstrad CPC-464, CPC-6128 
para el infercambio de juegos y 
utilidades. Enviad lista. Contestar6 
todas las cartas. Javier T. Tejada. 
C/V. Garamendi, 5, 7oB. 48006 
Bilbao (Vizcaya). 

• • • • • • • • e O OO O OO 

OPERACION CAMBIO 

-- Valoramos tu 
AMSTRAD 464 FV e 45.000 Ptas. 
AMSTRAD 664 FV en 58.000 Ptas, 
en la compra de un nuevo ordenador, 

-- Se cambia monitor verde por 
monitor color nuevo 40.000 Ptas. 

TEL. (91) 416 13 02 
S61o tardes 

• • • • O 0 O 000 O O 0 O0 

Vendo n. ° 1 al 30 de 
Microhobby Spectrum por 2.700 
pts. No ejempleres suelto. Sin 
gastos de envio. Llamar a partir 
de las 7 h. de la tarde. Miguel 
Angel Godoy Rubio C/It61ica, 
163. Santiponce (Sevilla). Tel. 
(954) 39 64 25. 

Tu sexta pieza y tu sexto ndmero 

Recorta 
y pega 
esla 
peza 
en su lugar. 

6 

Recorta este ndmero y 
gurdalo basra que tengas 
bs restanes, despu@s 
p4gao en su lugar 
correspond,ene, de forma 
que las surnas horizontales 
y vemcales comcdan(15). 



C! Duque de Sesto, 50. 28009 MADRID 
Tel. (91) 275 96 16 - 274 75 02 
Metro O'Donnell o Goya (aparcamiento gratuito en Felipe II) 

STREET HAWK 
KNIGHT RIDER 
MIAMI VICE 
MOVIE 
EQUINOX 

PTAS. 
2.300 
2.300 
2.300 
2.300 
2.100 
2.100 

MILLION II DISCO 
GREEN BERET DISCO 
LAS 3 LUCES G DISCO 
DESERT FOX DISCO 
KNIGHT GAMES 
STAINLESS STEEL 
DESERT FOX 
JAK THE NIPPER 
CAULDRON II 
NEXUS DISCO 
RAMBO+MATCH DAY DISCO 
STEINLESS STEEL DISCO 
KNIGHT RIDER DISCO 
KNIGHT GAMES DISCO 

3.300 
3.000 
3.000 
3.000 
2.300 
2.300 
2.600 
2.300 
2.300 
3.000 
3.300 
3.000 
3.000 
3.000 

OFERTAS EN JOYSTICKS 
PTAS. 
QUICK SHOT I 1.395 

895 
3.175 
__ 1.790 
1.975 
9.265 
69 
795 
__ 2.390 
1.390 
2.900 
2.50O 
735 

PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE 
ENVIO. TEL. (91) 275 96 16- 274 75 020 ESCRIBIENDO A: 
MICRO-1. C! DUQUE DE SESTO, 50. 28009 MADRID. 
Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 274 75 03. 

.,. TAPA DE METACRILATO 464 __ 
CABLE CENTRONICS 
CABLE SEGUNDA UNIDAD D. 
CABLES SEPARADORES 6128 __ 
INTERFACE RS232 
CINTA VIRGEN C15 
CABLE AUDIO 
CABLE ADAPTADOR 2 JOYSTICK 
CABLES SEPARADORES 464 
CABLE SEPARADOR 8256 
CABLE RS232 
DISKEI-[ES 3" 

COMPATIBLE PC IBM 
MONITOR FOSFORO VERDE 
DOS UNIDADES DE DISCO 
360 K UNIDAD 
UNIDAD CENTRAL CON 256 K 
TECLADO EN CASTELLANO 
169.900 PTAS. 
INCLUIDO PAQUETE DE 
SOFTWARE DE GESTION 

3.295 PTAS. L_ 
CASSETTE ESPECIAL ORDENADOR 
3,595 PTAS. 
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DISTRIBUIDOR EXCLUSIVO PARA ESPAIA: ERBE SOFTWARE. CI. STA. ENGRACI. '17 
':;i 10 AADRID, TEL, (91) 447 34 10"- DELEGACION BARCELONA, AVDA. MISTRAL, N, ° 10 - TEL. (93) 432 07 31 



